VB中数据库访问程序运行就是操作已取消，不知道怎么回事求高手解答

Public Sub Inp()
Dim j%
strDataFileName = InputBox("输入数据库文件名")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};_DBQ=" + strDataFileName '直接用数据库文件名建立连接的方法，并已指明为Access数据库文件
Conn.Open strDSN '利用Connection对象的Open方法打开指定的Access数据库
strSQL = "SELECT*FROM table1"
Set Rs = Conn.Execute(strSQL) '利用Cennection对象的Execute方法返回数据库的记录集
aArray = Rs.GetRows(4) '获得记录集数组，包括ID
a = aArray(1, 0): b = aArray(2, 0): c = aArray(3, 0)
z = aArray(4, 0): z1 = z
ReDim l#(c - 1), ll#(c - 1), w#(c - 1), s!(c - 1), jj%(c - 1)
ReDim kk%(c - 1), mm%(b - a), nn%(2 * c)
ReDim h#(b - 1), r#(b - 1), p(b - a - 1), q(b - a - 1)
strSQL = "SELECT*FROM table2"
Set Rs = Conn.Execute(strSQL) '利用Connection对象的Execute方法返回数据库的记录集
aArray = Rs.GetRows(2 * a) '获得记录集数组，包括ID
For j = 0 To UBound(aArray, 2)
h(j) = aArray(1, j)
r(j) =

怎样用VB程序访问数据库。 如何在 VB 程序中 访问 Accsee 数据库 如何用VB 程序访问数据库中最大值 VB中怎么样访问ACCESS数据库啊... vb中访问数据库不能反向提取 vb中c/s程序,客户端怎样访问服务器端数据库? VB 数据库程序 能不能脱离DBMS运行 如何监视VB程序运行过程中访问过那些文件？？？ 请问vb程序可以访问MYSQL数据库吗 VB简单访问数据库