SQL="Select title from table1"
Set rs=Conn.Execute(SQL)
i=0
Dim title()
Do While Not rs.eof
    title(i)=rs("title")
   i=i+1
    rs.movenext
Loop