Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source= datastat.mdb"
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
Dim i, j, k As Integer
i = 0
Do
rs.Open strSQL(0), db
rs.MoveFirst
j = 0
Do While j < i
rs.MoveNext
j = j + 1
Loop
谁能帮俺解释一下，Connection是什么东东？后面那个CursorLocation是作什么的？还有紧跟着的adUseClient
Open 的用法，以及后面跟的那么一大串东东到底是怎么回事？那个循环语句里面第一次j < i是不成立的能继续循环？

怎么都觉得这个代码不全……根本编译不通过

是不是很全
我认为问题解答不需要其他部分所以就没写啊

问题是结构不完整。

Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source= datastat.mdb"
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
Dim i, j, k As Integer
i = 0
Do
rs.Open strSQL(0), db
rs.MoveFirst
j = 0
Do While j < i
rs.MoveNext
j = j + 1
Loop
i=i+1
loop
可以了么？

Do
rs.Open strSQL(0), db
rs.MoveFirst
j = 0
Do While j < i
rs.MoveNext
j = j + 1
Loop
i = i + 1
Loop


死循环了……

谢谢楼上
终于知道无条件的Do...Loop是什么效果了。自己没尝试过