请各路大侠帮帮忙，关于combol控件和text控件的动态问题？回答给分。。。。

Question

我最近作了个小题利用combol和text控件绑定数据库中的字段，让text控件随combol的取值而动态变化，总是不能实现，请大家帮助。我是一个编程新手

Answer 1

sub combo1_afterupdate()
text.value=combo1.value
end sub

Answer 2

Private Sub Combol_Change()
dim rec as new adodb.recordset
dim cn  as new adodb.connection
cn.connectionstring="provider=msdasql.1;persist security info=false;user id=用戶名;password=密碼;data source=數据庫名"
cn.open
rec.CursorType = adOpenDynamic
rec.LockType = adLockPessimistic
rec.Open "select 人員編號,姓名 from [G-人員基本資料表] where 人員編號='" & Combol.Text & "'", cn, , , adCmdTable
If rec.EOF() = False Then  '如果資料庫有此人員編號,則讓textbox取得相應的姓名
   textbox.text = rec("姓名")
Else                       
   textbox.text = ""
End If
rec.Close
End Sub