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时就提示对象打开时不允许操作！ 我是哪里 错啦？ 而且我还想实现的就是，当输入下一个学号时，表中的数据为空

奇快，我的就没有问题，怎么试你的也没有问题

'查找记录
'On Error Resume Next
Dim cnn3 As ADODB.Connection
Dim rs3 As ADODB.Recordset
Dim Str, Sjk As String
Set cnn3 = New ADODB.Connection
Set rs3 = New ADODB.Recordset
rs3.CursorLocation = adUseClient
Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\WXSJK\txwx.mdb;Persist Security Info=True"
Sjk = "select * from 客户 where ( 客户." & Combo301.Text & " =  '" + Text301.Text + "')"
cnn3.Open Str
rs3.Open Sjk, cnn3, adOpenStatic, adLockReadOnly
'rs3.Open Sjk, cnn3, adOpenDynamic, adLockPessimistic
Set DataGrid301.DataSource = rs3
'DataGrid301.Refresh
If rs3.RecordCount = 0 Then
MsgBox "无此相关记录！", vbExclamation, "提示信息"
Text301.SetFocus
Else:
Text311.SetFocus
End If

[此贴子已经被作者于2005-5-28 1:12:34编辑过]

在最后加一个
if rs.open then rs.close
试试

我加了那句话提示：缺少函数或变量

我写错了,应该是
If rs.State = adStateOpen Then
                rs.Close
 End If