Dim iCount As Integer
    Dim iMCount As Integer
  iCount = iCount +  1 
  iMCount =  4 
  Set bd = CurrentDb
  Set RrecSet = bd.OpenRecordset("USER_REG", dbOpenSnapshot, dbReadOnly)

  RrecSet.FindFirst "[REG_NAME] = '" & Me![Пользователь] & "'"
  If Not RrecSet.NoMatch Then
    If RrecSet![PASSWORD] = Me![Пароль] Then

        Select Case RrecSet![ID_ACCESS]
            Case "0"
                DoCmd.OpenForm "UserID", , , , , acHidden
                Forms!UserID!UserID = RrecSet![PERS_COD]
                Forms!UserID!ID_ACCESS = RrecSet![ID_ACCESS]
                    RrecSet.Close
....
Else
        MsgBox "Неверный пароль!",  48 
        RrecSet.Close
        If iCount >= iMCount Then
            MsgBox "Вы превысили лимит неудачных попыток!",  48 
            DoCmd.Quit
        End If
    End If
  Else
    MsgBox "Неверное имя пользователя!",  48 
    RrecSet.Close
    If iCount >= iMCount Then
        MsgBox "Вы превысили лимит неудачных попыток!",  48 
        DoCmd.Quit
    End If
    End If