Sub CreateConnection()
    Dim AdoErr
    Dim ErrMsg As String
    
    ConnStr = ConStr_Driver & _
                "UID=" & [Настройки_ПользовательБД] & ";" & _
                "PWD=" & [Настройки_ПарольБД] & ";" & _
                "DBNAME=" & [Настройки_АдресБД] & ";"
                
    If CN.State = adStateOpen Then CN.Close
    CN.CursorLocation = adUseServer
                
On Error GoTo ErrCN
    CN.Open ConnStr
        
    With RS
        RS.CursorType = adOpenDynamic
        RS.LockType = adLockOptimistic
    End Withё
    
    With CMD
        .ActiveConnection = CN
        .CommandType = adCmdText
    End With
        Exit Sub
ErrCN:
        Call MsgBox(ErrMsg & Chr(10) & AdoErr.NativeError & " | " & AdoErr.Description, vbCritical, "Ошибка подключения!")
End Sub