On Error GoTo errmsg
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=dbuser;Persist Security Info=True;User ID=dbuser;Initial Catalog=DBTest;Data Source=."
Adodc1.RecordSource = "select * from doc_users"
Adodc1.Refresh
If Adodc1.Recordset.EOF = False Then '如果用户为空则不执行默认选定
Adodc1.Recordset.MoveFirst
datacb_UserName.BoundText = Adodc1.Recordset.Fields("userID")
errmsg:
MsgBox "连接数据库出错"
End If
一到datacb_UserName.BoundText = Adodc1.Recordset.Fields("userID")这就出错，如果是赋值问题，它确实赋上了，而且起作用了啊

太感谢版主啦，哈哈，我开始是考虑到这个问题，
所以在datacb_UserName.BoundText = Adodc1.Recordset.Fields("userID")
后面加了条dim a as interger
现在才知道原来这句话根本就不编译，
版主过节还来回来问题，不错