dataGrid控件连接Adodb数据库出现 the rowset is not bookmarkable的问题

Question

问题如标题
代码如下：
Private Sub Form_Load()
Dim sql As String
Dim conn As New ADODB.Connection
temp_date = Date
sql = "select 日期,班级,教室 from teacher_view where 教师名='" & temp_name & "' and 日期='" & temp_date & "'"
conn.ConnectionString = "odbc;database=course;dsn=xzh;uid=sa;pwd= ;"
conn.Open
Dim rstTeacher As New ADODB.Recordset
'conn.Type = adUseClient
rstTeacher.CursorLocation = adUseServer
rstTeacher.ActiveConnection = conn
rstTeacher.CursorType = adOpenDynamic
rstTeacher.LockType = adLockOptimistic
rstTeacher.Open sql
Set DataGrid1.DataSource = rstTeacher
DataGrid1.Refresh
End Sub
看了很多帖子都没把问题解决，错误的性质都不清楚，请高手指教，解释的详细些。

Answer 1

Private Sub Form_Load()
    Dim sql As String
    Dim conn As New ADODB.Connection    temp_date = Date
    sql = "select 日期,班级,教室 from teacher_view where 教师名='" & temp_name & "' and 日期='" & temp_date & "'"
    conn.ConnectionString = "odbc;database=course;dsn=xzh;uid=sa;pwd= ;"
    conn.Open
    Dim rstTeacher As New ADODB.Recordset
    'conn.Type = adUseClient
    rstTeacher.CursorLocation = adUseServer
    rstTeacher.ActiveConnection = conn
    rstTeacher.CursorType = adOpenStatic
    rstTeacher.LockType = adLockOptimistic
    rstTeacher.Open sql
    Set DataGrid1.DataSource = rstTeacher
    DataGrid1.RefreshEnd Sub

Answer 2

確認你所需使用的"CursorLocation -----游标服务的位置"
              以及"CursorType     -----遊標類型"
可將
rstTeacher.CursorLocation = adUseServer '使用数据提供者的或驱动程序提供的游标
.
.
rstTeacher.CursorType = adOpenDynamic'动态游标
改為
rstTeacher.CursorLocation = adUseClient'使用由本地游标库提供的客户端游标
.
.
rstTeacher.CursorType = adOpenDynamic'动态游标也可將
rstTeacher.CursorLocation = adUseServer '使用数据提供者的或驱动程序提供的游标
.
.
rstTeacher.CursorType = adOpenDynamic'动态游标
改為
rstTeacher.CursorLocation = adUseServer '使用数据提供者的或驱动程序提供的游标.
.
rstTeacher.CursorType = adOpenStatic '静态游标