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

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时还输出帐号值，可是显示出来却是空的。