Question

VB中怎样使Text中显示datacombo选中的哪个字段的记录

VB中的几个text控件和dbcombo中连接了数据库之后，怎么样可以在我选择了COMBO中的数据之后直接显示对应的其他的数据库的内容呢？我只能让数据库中的一项显示在combo中，但是无法让他们联系起来，好郁闷那！
我用的是ADO连接的ACCESS数据库

Answer 1

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_ExpStu.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from tb_stu "
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
For i = 0 To Adodc1.Recordset.RecordCount - 1
Combo1.AddItem Adodc1.Recordset.Fields("姓名")
Adodc1.Recordset.MoveNext
Next i
End If
Combo1.ListIndex = 0
End Sub

然后在 COMBO1

Private Sub Combo1_Click()
Adodc1.RecordSource = "select * from tb_stu where 姓名='" + Combo1.Text + "'"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub