Dim ccProd As New ADODB.Recordset
    On Error GoTo Ers
With ccProd
  .ActiveConnection =  "Provider=SQLOLEDB.1 ;Integrated Security=SSPI;Persist Security Info=False;Initial 
  Catalog=emarks;Data Source=ODGFADB"
  .Source =  "SELECT * FROM ccproduction" 
  .CursorLocation = adUseClient
  .LockType = adLockOptimistic
  .Open
End With

Ers:
    If Err.Number = - 2147192184  Or Err.Number = - 2147467259  Then
    MsgBox  "Ошибка при соединении с базой, возможно неправильный пароль" , vbOKOnly + vbCritical,  "Ошибка !" 
    Else
    MsgBox Err.Number &  " "  & Err.Description
    End If