假如有一个数据库，如何用datacombobox或combobox和textbox关联这个数据库并显示相关数据？（例如，我在datacombobox中选中一个人的名字，然后textbox中会自动显示这个人的职业。）

使用adodc控件，
Private Sub Form_Activate()
   S = App.Path & "\db1.mdb"   
  Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" + Chr(34) + S + Chr(34) & ";Jet OLEDB:Database Password=chen3523;"  '打开有密码数据库，密码为“chen3523”
    = adCmdTable
    Adodc2.RecordSource = "a1表"
    Adodc2.Refresh
       Set DataCombo1.RowSource = Adodc2
       DataCombo1.ListField = "名字"
End Sub

在textbox框属性中设置：datasource为adodc2，datafild为“职业”。应该可以了