大虾们注意：高分简单的问题

Question

本人在做一个软件
，被一个小问题困住，急救。
我再用两个combo控件，应为数据库里的字段名不止一个，我想实现选择combo1里的字段后，combo2能相应的列出combo1里所选字段的说有数据。急用，谢谢各位大虾。

Answer 1

private sub combo1_click()
rs.open "select * form 表 where ziduan1='" & combo1.text & "'" ,cn,3,1
while not rs.eof
     combo2.additem rs.fields(0) & "/" & rs.fields(1)
wend 
end sub

Answer 2

Private Sub Combo1_Click()
    Dim Rs   As New ADODB.Recordset
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from product where name='" & Combo1.Text & "'", CN, adOpenDynamic, adLockOptimistic
    Rs.MoveFirst
    Do While Not Rs.EOF
        Combo2.AddItem Rs.Fields("name")
        Rs.MoveNext
    Loop
    Rs.close
End Sub

Answer 3

combo1 和 combo2 都 additem好数据后：
Private Sub Combo1_click()commbo2.listindex=combo1.listindexend sub

Answer 4

Dim rs As New ADODB.Recordset
    SS = combo1.text 
    rs.Open "select * from 表 where 字段名='" & SS & "'", ADO_Cnn, adOpenKeyset, adLockOptimistic
    While Not rs.EOF
       combo2.AddItem Trim$(rs.Fields("字段名"))
       rs.MoveNext
    Wend
    rs.Close
    End If