连接时显示错误消息或VBA中的无效用户名或密码

Question

我试过下面的代码，但我想用MsgBox来显示错误信息（-2147217843）

Else
'Display errors..
For Each Err In objConn.Errors
Debug.Print Err.Description
Next
End If

Answer 1

这是一个谷歌搜索。

Msgbox(Err.Description)

不确定如何以问题的当前状态进一步丰富答案。

Answer 2

只需使用vbCritical样式的MsgBox函数。

Dim Msg, Style, Title
Style = vbOKOnly + vbCritical                    ' Define buttons.
Title = "Error"                                  ' Define title. 
Msg = "The following errors have been occurred:" ' Prepare message template.
' Build message.
For Each Err In objConn.Errors
    Msg = Msg & vbNewLine & Chr(149) & " " & Err.Description
Next
Call MsgBox(Msg, Style, Title)                   ' Display error message

您也可以使用vbCrLf代替vbNewLine换行符。