как узнать код ошибки

[DeptHunter]

при подключению к базам на SQL, выходит ошибка как можно данную ошибку вычислить (узнать её код) и в итоге проигнорировать.

[doober]

Два варианта

Sub MyMacro()

   On Error GoTo MyMacro_Error
'Ваш код
   On Error GoTo 0
   Exit Sub

MyMacro_Error:

        MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure MyMacro "
End Sub
Sub MyMacro()
   On Error Resume Next
'Ваш код
 If Err.Number <> 0 Then
   MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure MyMacro "
   Err.Clear
 End If

End Sub