diff --git a/vbalinkmysql.txt b/vbalinkmysql.txt index 72e1442..ffbd5ce 100644 --- a/vbalinkmysql.txt +++ b/vbalinkmysql.txt @@ -27,12 +27,12 @@ Public Sub AutoRun() If VBA.Err.Number <> 0 Then strDBinf = "DSN=mysqlinklexcel64" '标准语句 - VBA.MsgBox "32位DSN连接失败,尝试使用mysqlinklexcel6连接!" + VBA.MsgBox "32位DSN连接失败,尝试使用mysqllinkexcel6连接!" Call conn.Open(strDBinf) End If If VBA.Err.Number > 1 Then - VBA.MsgBox "连接异常,请检查DB环境!" + VBA.MsgBox "连接异常,请检查DB环境!" Set conn = Nothing End If Application.StatusBar = "数据库连接成功"