如何在连接sql数据库错误的情况下弹出数据库设置窗口

Question

工程现有模块Module1（Module1.bas），内有代码：Public dbconn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public StrSQL As String
Public ConnString As StringPublic Function CreateConnect()
    On Err GoTo connecterr    ConnString = "Provider=SQLOLEDB.1;Password= sa ;Persist Security Info=True;User ID= sa ;Initial Catalog= db ;Data Source= (local) "
    dbconn.ConnectionString = ConnString
    dbconn.CursorLocation = adUseClient
    dbconn.Open
    Exit Functionconnecterr:
    MsgBox "Connect Database Error!", vbInformation, "Information"
    End
End FunctionPublic Function ExcuteSql(str_sql As String)
    On Err GoTo connecterr
    Set rs = Nothing
    rs.Open str_sql, dbconn
    Exit Function
    
connecterr:
    MsgBox "Excute SQL Error!", vbInformation, "Information"
    End
End Function
///
现在调试时，如果数据连接错误（把密码改成错误的），就直接中断了，我希望是如果连接不上数据库，能够弹出一个窗口来让手动设置数据库链接信息
不知如何修改？我是修改别人的程序。

Answer 1

Public Function CreateConnect()
    On Err GoTo connecterr    ConnString = "Provider=SQLOLEDB.1;Password= sa ;Persist Security Info=True;User ID= sa ;Initial Catalog= db ;Data Source= (local) "
    dbconn.ConnectionString = ConnString
    dbconn.CursorLocation = adUseClient
    dbconn.Open
    Exit Functionconnecterr:
    增加你需要的弹出窗口！
    MsgBox "Connect Database Error!", vbInformation, "Information"
    End
End Function