开机检测mysql数据库连接问题

Public Function CreateConnection(ByVal pProvider As String, pDataSource As String) As ADODB.Connection
Dim oCn        As ADODB.Connection
   
    Set oCn = New ADODB.Connection
    oCn.CursorLocation = adUseClient 
    oCn.Open NMySqlCon 
    Set CreateConnection = oCn
    Call Command_Click

End Function

NMySqlCon："Driver=MySQL ODBC 5.1 Driver;SERVER=localhost;UID=root;PWD=***;DATABASE=*******;PORT=3306"

开机启动运行到：oCn.Open NMySqlCon 显示连接不上本地数据库。


Public Function Command_Click()          Dim sKeyName As String, sKeyValue As String, sKeyValueIcon As String
Dim Ret As Integer, lphKey As Long

    sKeyName = "Software\Microsoft\Windows\CurrentVersion\Run"
    sKeyValue = "C:\PcposX8\Suntouch.exe"
    Ret = RegCreateKey&(HKEY_LOCAL_MACHINE, sKeyName, lphKey)
    Ret = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)

End Function

这是加入注册表的程序的代码。

如何在开机的时候oCn.Open NMySqlCon 不成功后，再继续连接mysql数据库，而不让它弹出错误框框。

---

那万一客户MYSQL出现故障的话，那不是一直连不上吗？

---

只能说明你的需求根本没有考虑这类异