怎么把查找中的内容用datagrid显示出来！小弟在线！！

Question

Option Explicit
 
Dim Conn As ADODB.Connection
Dim Rs As ADODB.RecordsetPrivate Sub Form_Load()
    Set Conn = New ADODB.Connection
    Set Rs = New ADODB.Recordset
    Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;Persist Security Info=False"
    Conn.Open
    Rs.Open "select * from users", Conn, adOpenKeyset, adLockBatchOptimistic
    Set Me.DataGrid1.DataSource = Rs
End Sub
-----
我想把查找的内容显示在datagrid上怎么做谢谢兄弟们。。

Answer 1

Rs.Open "select * from users where ='满足条件'"

Answer 2

Option Explicit
 
Dim Conn As ADODB.Connection
Dim Rs As ADODB.RecordsetPrivate Sub Form_Load()
    Set Conn = New ADODB.Connection
    Set Rs = New ADODB.Recordset
    Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;Persist Security Info=False"
    Conn.Open
    Rs.Open "select * from users where name='myhwlj'", Conn, adOpenKeyset, adLockBatchOptimistic
    Set Me.DataGrid1.DataSource = Rs
End Sub