怎样实现datagrid查询

[malong163net]

我做了一个查询的例子：
先建了一个model.

Public Con1 As New ADODB.Connection
Public Rst As New ADODB.Recordset

Function cnDB() As Connection
Con1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist " & _
"Security Info=False;Data Source=" & App.Path & "\data\student.mdb"
Con1.Open
Set cnDB = Con1
End Function

Function rsDB(Con1, sql As String) As Recordset
Rst.Open sql, Con1, adOpenDynamic, adLockPessimistic
Set rsDB = Rst
End Function

窗口代码如下：

Private Sub Form_Load()
Set Con1 = cnDB()
Rst.CursorLocation = adUseClient
Set Rst = rsDB(Con1, "Select * From 成绩")
End Sub

Private Sub Command1_Click()
Dim t As String
t = Text1
Set Rst = Con1.Execute("Select * From 成绩
where 学号='" & t & " 'order by 学号")

DataGrid1.ClearFields
Set DataGrid1.DataSource = Rst
End Sub

Private Sub Command2_Click()
Con1.Close
Unload Me
End Sub



运行后查询；程序报错---实时错误'7004'
行集合不能为标签。


请大家帮忙解决这个错误！还有怎样实现datagrid即时查询！

[antshome]

Rst.CursorLocation = adUseClient 这一行去掉试试

[malong163net]

没用啊！
还是报同样的错误！

[tomosky]

兄弟，你应该先为你的datagrid设置好caption 这个属性啊
语法：
datagrid.column(i).caption=""
明白了否？？？

[enhydraboy]

为什么要设caption,缺省会把数据表的列名作为列标题的。