Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim db As New ADOX.Catalog
Private Sub Command2_Click()
   '打开记录集
    Set MSHFlexGrid1.DataSource = rs
   
     rs.Close
    con.Close
End Sub

Private Sub Command3_Click()
Dim s1 As String
Dim s2 As String
Dim s As String
Dim aa As Boolean
If Text1.Text = "" Then
    MsgBox "不能为空", vbCritical, "不能为空"
    Exit Sub
Else
    s1 = "select * from bookitems"
    s2 = s1 & " where ÊéºÅ = '" & Text1.Text & "'"
        Set rs2 = con.Execute(s2)
        
       If rs2.RecordCount > 0 Then
       'Print rs2.RecordCount
    'If (s = "rs2.Fields!书号='" & Text1.Text & "'") Then        Set MSHFlexGrid2.DataSource = rs2

        MSHFlexGrid2.Refresh
     Else       MsgBox "没有所查的记录", vbExclamation, "没有记录"
     End If
End If

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim db As New ADOX.Catalog
Private Sub Command2_Click()
   '´ò¿ª¼Ç¼¼¯
    Set MSHFlexGrid1.DataSource = rs
   
     rs.Close
    con.Close
End Sub

Private Sub Command3_Click()
Dim s1 As String
Dim s2 As String
Dim s As String
Dim aa As Boolean
If Text1.Text = "" Then
    MsgBox "²éѯ²»ÄÜΪ¿Õ", vbCritical, Find
    Exit Sub
Else
    s1 = "select * from bookitems"
    s2 = s1 & " where ÊéºÅ = '" & Text1.Text & "'"
        Set rs2 = con.Execute(s2)
        
        If rs2.RecordCount > 0 Then
       'Print rs2.RecordCount
    'If (s = "rs2.Fields!ÊéºÅ='" & Text1.Text & "'") Then
        Set MSHFlexGrid2.DataSource = rs2

        MSHFlexGrid2.Refresh
     Else
       MsgBox "ûÓÐËù²éµÄ¼Ç¼", vbExclamation, "ûÓмǼ"
     End If
End If

End Sub

Private Sub Form_Load()
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\book.mdb;"
rs.Open "select * from bookitems", con, adOpenKeyset, adLockOptimistic
End Sub

已经自己解决了,是游标不对,con.cursorlocation=aduseclient