ADO的问题

Question

请问，如何实现以下的一个查询功能？（希望提供代码）
已创建控件：datagrid1,datacombo1,command1（查找）,
数据库已用ADO连接，从 datacombo1中选一项，按command1（查找）,datagrid1中显示相关记录？

Answer 1

Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
    Dim Rs   As New ADODB.Recordset    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
    CN.Open    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic    Set DataGrid1.DataSource = Rs

Answer 2

太模糊了。
大致意思如下：
private sub command1_click()
...
    datagrid1.datasource = "Select 字段,...字段 from table_name " & _
                           " Where 字段='" & datacombo1.text & "'"
    datagrid1.refresh
...
end sub
要求Datagrid1要与一个Connection对象连接上。

Answer 3

从 datacombo1中选一项，按command1（查找）,datagrid1中显示相关记录Private Sub Command1_Click()    Set DataGrid1.DataSource = Nothing
    If Rs.State = adStateOpen Then
        Rs.Close
    End If    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees where name='" & Combo1.Text & "'", CN, adOpenDynamic, adLockBatchOptimistic
    
    Set DataGrid1.DataSource = Rs
End Sub

Answer 4

借用一下lihonggen0的。不用给我分Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
    Dim Rs   As New ADODB.Recordset    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="数据库位置";Persist Security Info=False"
    CN.Open    Rs.CursorLocation = adUseClient
    Rs.Open "Select 字段,...字段 from table_name " & _
                           " Where 字段='" & datacombo1.text & "'", CN,adOpenDynamic, adLockBatchOptimistic    Set DataGrid1.DataSource = Rs