新手刚接触，求帮助！
 Private Sub Form_Load()
        Dim strSQL2 As String
    Dim rs As New ADODB.Recordset
    strSQL2 = "SELECT * FROM [tb_department] ORDER BY department_id"
   
    Set rs = QueryExt(strSQL2)  '读取所有记录
    i = 0
    With cmbDept
    Do While Not rs.EOF    '将部门数据添加到给合控件中
        .AddItem rs("department_name")
       .ItemData(i) = rs("department_id")
        rs.MoveNext
        i = i + 1
   Loop

我用数据库里面一张表的一列，让它显示在combo里面，另外需要点击combo选择里面某个记录时候，在txtbox中显示同一数据表中的另外一个字段的值，不知道该怎么样出来？非常感谢了啊！

cmbDept_Change

版主详细点啊，是在这个下面写个什么代码才能出来？万分感谢啊！

我现在combo里面下拉可以得出数据库中的一列，但是文本怎么样查询和更新啊

郁闷，谁帮帮忙 啊

给你个参考：用了两个ADODC，combo1的内容和combo2的内容我是分两个表放的
Private Sub Form_Load()
Do While Not Adodc1.Recordset.EOF
Combo1.AddItem Adodc1.Recordset.Fields("区域")
Adodc1.Recordset.MoveNext
Loop
Combo1.Text = Combo1.List(0)
Combo2.Text = Combo2.List(0)
End Sub
Private Sub Combo1_Click()
Combo2.Clear
= adCmdText
Adodc2.RecordSource = "select * from （combo2需要加载的表格名）"
Adodc2.Refresh
While Not Adodc2.Recordset.EOF
Combo2.AddItem Adodc2.Recordset.Fields(Combo1.Text) & ""
Adodc2.Recordset.MoveNext
Wend
Combo2.Text = Combo2.List(0)
End Sub

Private Sub Combo1_Click()
 Combo2.Clear
  = adCmdText
 Adodc2.RecordSource = "select * from （combo2需要加载的表格名）"
 Adodc2.Refresh
 While Not Adodc2.Recordset.EOF
 Combo2.AddItem Adodc2.Recordset.Fields(Combo1.Text) & ""
 Adodc2.Recordset.MoveNext
 Wend
 Combo2.Text = Combo2.List(0)
 End Sub
你只要把这里的稍微改改就能用的！算了！我直接改好了你看看吧
Private Sub Combo1_Click()
    Combo2.Clear
    Set cn = New adodb.Connection
    Set rs = New adodb.Recordset
    If cn.State = adStateOpen Then cn.Close
    If rs.State = adStateOpen Then rs.Close
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\数据库名;Jet OLEDB:Database Password=密码 "
    sql = "select * from 表名"
    rs.Open sql, cn, adOpenForwardOnly, adLockBatchOptimistic
While Not rs.EOF
Combo2.AddItem rs.Fields(Combo1.Text) & ""
rs.MoveNext
Wend
Combo2.Text = Combo2.List(0)
End Sub

灰常感谢楼上大神！！