information u provided is very less, but hope this will help
lets consider
"Con" is ur dbase cnnection
Dim Array1() --->keep it open for dynamic use
then
set Rs=con.execute("select * from tablename") --> it is ur table recordet
linecount=0
while not Rs.eof
linecount=linecount+1
redim preserve Array1(LineCount)
Array(1)=rs.fields("fieldname")
Rs.movenext
wend

now Array1 is your array and as it is dynamic so no need to worry about the no of records or array size as well