一个关于vb on Error GOTO 的问题请教大家。

AdoRs.Open "select * from user_info", Cnn, adOpenKeyset
On Error GoTo error_1:
If AdoRs.RecordCount > 0 Then
Me.txtUserName.Clear
Do While AdoRs.EOF = False
Me.txtUserName.AddItem (AdoRs.Fields("user_name"))
AdoRs.MoveNext
Loop
AdoRs.Close
End If

error_1:
MsgBox ("请检查你的数据库是否已经正常启动！")

这是我的一个读取数据的代码，如果出现错误我就提示，可是现在我的数据能够读出来，可是为什么程序还会出现提示呢？
on ERROR go to 不是只有出现错误的时候才跳转吗？
可是我的程序没有出现错误啊，为什么也去执行了？
大家帮助。谢谢
Private Sub Form_Load()

AdoRs.Open "select * from user_info", Cnn, adOpenKeyset

On Error GoTo error_1:

If AdoRs.RecordCount > 0 Then
Me.txtUserName.Clear
Do While AdoRs.EOF = False
Me.txtUserName.AddItem (AdoRs.Fields("user_name"))
AdoRs.MoveNext
Loop
AdoRs.Close
Exit Sub
End If

error_1:

MsgBox ("请检查你的数据库是否已经正常启动！&qu

vb中的on Error goto Errhandle 是什么意思 On Error GoTo 0 on error goto的简单问题 VB 的 on error语句 vb中on error语句的问题 VB里"On Error Resume Next"是什么意思? vb疑问“On Error Resume Next ”怎么解释 与Error GoTo有关的问题 请问SQL中GOTO ERROR是什么意思? 请问VB中怎么使用Goto语句Goto行号