一个关于用combo作为查询条件并在DBcombo中显示查询结果的问题！

Question

我的程序遇到问题了：
界面中分别有一个combo1和一个dbcombo1列表框，我现在希望通过选择combo1中的内容，然后把这个值作为查询条件，查询一个数据表中某字段内容与其一致的记录，并把这些记录的其中一个字段显示在dbcombo1中供选择，请问我应该如何实现？？？

Answer 1

Option Explicit
Private conn As ADODB.Connection
Private rs As ADODB.RecordsetPrivate Sub Command1_Click()
Dim apppath As String
Dim dbfilename As String
Dim ConnectString As String
Dim i As Integer
Set conn = New ADODB.Connection
Dim sql As String
        Set conn = New ADODB.Connection
        Set rs = New ADODB.Recordset
        rs.CursorLocation = adUseClient
        dbfilename = "F:\csdn_vb\controls\listbox\article.mdb"
        ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                   dbfilename & ";Persist Security Info=False;"
                
        On Error Resume Next
        With conn
             .CursorLocation = adUseClient
             .Open ConnectString
        End With
        
rs.Open "select id,mc from mz where mc='"& combo1.text &"'", conn, 1, 3
If rs.EOF Then
Exit Sub
End If
'将记录集的数据填充到combo2控件中
For i = 0 To rs.RecordCount - 1
combo2.AddItem rs.Fields("mc")
combo2.ItemData(i) = rs.Fields("id")
rs.MoveNext
Next
rs.Close
Set rs = Nothing
End Sub