关于ado对象

Question

Option Explicit
Public cnnStuSystem As New ADODB.Connection
Public cmmCourseManage As New ADODB.Command
Public rsCourseManage As New ADODB.RecordsetPrivate Sub courseManageFrm_Load()
    cnnStuSystem.Provider = "Microsoft.jet.OLEDB.4.0"
    cnnStuSystem.ConnectionString = "User ID = admin; Data Source = C:\Documents and Settings\Administrator\桌面\stuManage.mdb"
    cnnStuSystem.Open             '建立与数据库连接
    rsCourseManage.LockType = adLockBatchOptimistic
    rsCourseManage.CursorType = adOpenKeyset
    Set rsCourseManage.ActiveConnection = rsCourseManage
    Set Text1.DataSource = "课程编号"
    Set Text2.DataSource = "课程名"
    Set Text3.DataSource = "学分"
End Sub
Private Sub Command5_Click()
    rsCourseManage.MoveNext
End Sub点击moveNext时报对象关闭时不能操作。这是怎么回事？

Answer 1

rsCourseManage.Open ...
这句没写

Answer 2

下面这三句是想绑定吧？尽量不要绑定
   Set Text1.DataSource = "课程编号"
    Set Text2.DataSource = "课程名"
    Set Text3.DataSource = "学分"如果需要显示的时候用
 Text1.Text= rsCourseManage.Fields("课程编号").Value
Text2.Text= rsCourseManage.Fields(""课程名").Value