我遇到一个奇怪的问题。。请帮忙解决！

[bgl218]

Private Sub cboAccountID_Click()
intAccountID = cboAccountID.Text
adodcGuestWords.RecordSource = "select accountid,createTime ,message from message where accountid=" & intAccountID & ""
adodcGuestWords.Refresh
cboAccountID.Text = intAccountID
MsgBox cboAccountID.Text
End Sub
当msgbox cboaccountid.text时还输出帐号值，可是显示出来却是空的。

[wanwenguo]

这一段代码应该没有问题的吧，找找其他代码吧

[T2]

cboAccountID.Text = Ucase(Trim(adodcGuestWords!accountid))

[haitaoyu]

cboAccountID设置有问题? 这一段代码没有问题，找找看其他代码