如何将access中的数据读取并赋给vb程序中的变量

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Provider = "Microsoft.Jet.OLEDB.4.0;"
conn.Open app.Path + "\123.mdb"
rs.CursorLocation = adUseClient

Dim SQL As String

SQL = "select * from 123"
rs.Open SQL, conn, adOpenStatic, adLockOptimistic

i = 1
Do While Not rs.EOF

ReDim Preserve f(i)
ReDim Preserve l(i)
ReDim Preserve j(i)
f(i) = rs.Fields("1")
l(i) = rs.Fields("2")
j(i) = rs.Fields("3")
rs.MoveNext
i = i + 1
Loop
为什么会出现在对应所需名称或序数的集合中，未找到项目的提示，无法读取数据，进行赋值。
建工程时只有建成数据工程才行吗？
在标准行不行？

如何将access中的数据读取并赋给vb程序中的变量 asp如何读取access重复数据中的一条 如何将access中的数据导入到mysql库中？ 如何将串口中的数据存入access中 这个数据如何从ACCESS中读取 不用office,如何读取ACCESS的数据 C#读取Access数据 如何在ACCESS表中逆向读取数据？ 如何将ACCESS数据库中的数据提交到前台网页的表格中？？？？ asp+access 如何将一个字段中的多个数据相加