连接数据库错误处理问题？

用的是adodc，连接函数：
Function Connect()
    adoStu.RecordSource = sqlstr
    adoStu.UserName = Uid
    adoStu.Password = Pwd
    adoStu.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=" & Datebase & ";Data Source=" & Server
    
    On Error GoTo CanNotCon
    adoStu.Refresh
    Connected = True
    mnuConnect.Enabled = Not Connected
    Exit Function
CanNotCon:
    Connected = False
    mnuConnect.Enabled = Not Connected
    MsgBox (Err.Description)
End Function问题是运行程序后第一次执行此函数出现的错误弹出了两个对话框（第一个是正确的错误信息，但是对话框没有任何标题；第二个有正确的标题，但是却是另外一个错误信息，不是我想要的。），以后都是只弹出一个对话框（有正确的标题，正确的错误信息）。怎么回事啊？
谢谢各位了！