vb ado 问题
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 50
Combo1.AddItem CStr(i)
Next
Combo1.ListIndex = 0
strpath = "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source= " & App.Path & "\nce1.mdb; "

End Sub

Private Sub Label1_Click()
MsgBox "hello "

End Sub

Private Sub Label3_Click()
Dim i As Integer
i = Combo1.ListIndex + 1
MsgBox "已经选择了 "
bianshu = i
bofang

End Sub


Private Sub bofang()
Dim i As Integer
Dim cnn As New ADODB.Connection
cnn.ConnectionString = strpath

cnn.Open
Dim recordset As New ADODB.recordset
Set recordser = cnn.Execute( "select * from lesson1 ")
Dim field1 As ADODB.Field

Do While Not recordset.EOF
MsgBox CStr(recordset!开始时间)


Loop
cnn.Close
End Sub
-------------------------------------------------
以上为源代码，请问一下，怎么运行 总出现 对象关闭时，不允许操作？请帮帮忙！在线等，谢谢

[解决办法]
Set recordset = cnn.Execute( "select * from lesson1 ")

改成这个应该就没问题了
[解决办法]
你可以看看
Dim recordset As New ADODB.recordset
Set recordser = cnn.Execute( "select * from lesson1 ")

明显拼写错了

Do While Not recordset.EOF
MsgBox CStr(recordset!开始时间)

recordset.movenext ' 没有这个就造成死循环，很危险的
Loop