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")这就出错，如果是赋值问题，它确实赋上了，而且起作用了啊

其实不一定出错了……

errmsg只是个标号，术语似乎叫Label，意思是这段程序如果出错就跳到errmsg这里来执行，但是可没说没出错就跳过errmsg，你要程序自动跳到哪里呢？

还有，GOTO似乎不能从结构外跳到结构内的吧……

一般的处理方法

Sub Sub1
On Error GoTO ErrHandle

  '' do something

Exit Sub ' 如果执行到了这行就说明没有出错，跳出Sub
ErrHandle: ' 如果还执行了这行说明出错了，下面处理错误
  '' deal with exception

End Sub

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