Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset

Private Sub Command1_Click() cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\stusys.mdb" rs.CursorLocation = adUseClient rs.Open "select sno ,sname,begintime,endtime from info where sno='" & Text1.Text & "'", cnn, 1, 3 If rs.EOF = False Then

Set DataGrid1.DataSource = rs DataGrid1.Refresh Text1.Text = "" Else MsgBox "该用户不存在！请重新输入！" End If End Sub

form上有datagride和一个输入框，当输入一个sno时可以在表中显示结果，但是要输入下一个sno时就提示对象打开时不允许操作！ 我是哪里 错啦？ 而且我还想实现的就是，当输入下一个学号时，表中的数据为空