Question

[20悬赏]VB Combobox关联并控制access数据库的问题

求教：
VB的combobox控件如何关联access数据库？在combobox中的list项中如何显示数据库中的数据？并且在combobox中单击下来菜单的内容时如何做到对应内容有不同响应？如：单击A1弹出FrmA1窗口，单击A2弹出FrmA2窗口？
这两个问题是有关联的，combobox控件中的list的内容是对应数据库中的内容的。

Answer 1

想链接数据库
rs.open"select 字段 from 表名",con,1,3
do while not rs.eof
cbo.additem rs("字段")
loop
单击
在combox控件的click事件
if cbo.text=A1 then
frmA1.show
end if

Answer 2

Dim rs As New ADODB.Recordset

'清除combox 内容
If i >= 0 Then
For i = 0 To Combo29.ListCount - 1
Combo29.RemoveItem 0
Next i
End If

rs.Open "表名", CurrentProject.Connection, adOpenStatic

While Not rs.EOF
'显示 字段2
Combo29.AddItem rs(1).Value
rs.MoveNext
Wend