数据绑定更新问题

控件名                  控件类型
college_id1          datacombo
college_name1        textBox
adodc1               adodc
此外我还通过编程获得一个记录集adoRS

我想从college_id1中获得字段 college_id
用于查询字段  college_name,并在college_name中获得

我下的代码如下

Private Sub DataCombo1_Click(Area As Integer)

End Sub

Private Sub college_id1_Change()
Adodc1.Refresh
 

strSql = "select college_name from college where college_id='" + college_id1.Text + "'"
Call openTable(adoRS, strSql, strConn)
Set college_name1.DataSource = adoRS
    college_name1.DataField = college_name
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Call openDatabase(strConn)
End Sub


为什么我第一次改变college_id1的值时  textbox 里的值可以变化
以后就没有变化了呢


如何解决这个问题
--------------------编程问答-------------------- 自己顶一下 --------------------编程问答-------------------- 顶一下 --------------------编程问答-------------------- 谢谢楼上 --------------------编程问答-------------------- 同志们都放假过节去了？ --------------------编程问答-------------------- 用下面的代码看看：

if adoRS.Recount>0 then

adoRS.MoveFirst

college_name1.Text = adoRS.Filed(0) 

endif

--------------------编程问答--------------------


strSql = "select college_name from college where college_id like '&" + college_id1.Text + "'" 
Call openTable(adoRS, strSql, strConn) 
Adodc1.Refresh 
Set college_name1.DataSource = adoRS 
    college_name1.DataField = college_name 
--------------------编程问答-------------------- 楼上可以。 --------------------编程问答-------------------- 输入错了,应该是
strSql = "select college_name from college where college_id like '%" + college_id1

引用 6 楼 dbcontrols 的回复:

strSql = "select college_name from college where college_id like '&" + college_id1.Text + "'" 
Call openTable(adoRS, strSql, strConn) 
Adodc1.Refresh 
Set college_name1.DataSource = adoRS 
    college_name1.DataField = college_name 

--------------------编程问答-------------------- 不好意思，我的描述可能有问题


是这样的，我第一次改变datacombo控件的值时，textbox里的值是变化的
可是我第二次改变datacombo控件的值是，textbox里的值就没有变化了
我想知道如何多次改变datacombo控件的值，而textbox里的值每一次都有变化 --------------------编程问答-------------------- 再顶顶～～ --------------------编程问答-------------------- up

补充：VB ,  基础类