Run-time error 13: type mismatch

[Khabarovsk]

Здравствуйте. Создавала бд, нужна была авторизация. Нашла бд с авторизацией, засунула туда свои таблицы, формы и т.д. Авторизация еще работала. После добавления некоторых кнопок и прочего хлама, авторизация работать перестала.
Собственно метод реализации авторизации: пароль хранится в таблице. В форму вводятся значения. Далее модули работают.

Private Sub butOpen_Click()
Dim rstTemp As Recordset
Dim s, strPassword As String
    If IsNull(Пароль) Then
        MsgBox "Введите пароль!", vbCritical, "Администратор"
        Пароль.SetFocus
        Exit Sub
    End If
    strPassword = RegKluch(Пароль.Value)
    Set rstTemp = CurrentDb.OpenRecordset("tAdminCop")
    s = rstTemp!Password
    rstTemp.Close
    If strPassword <> s Then
        MsgBox "Не верный пароль!", vbCritical, "Администратор"
        Пароль = Null
        Пароль.SetFocus
        Exit Sub
    Else
        flgEnabled = True
        DoCmd.OpenForm "frmStart"
        DoCmd.Close acForm, Me.Form.Name
    End If
End Sub

Ошибка в выделенной строке, я так понимаю. Пароль до этого и сейчас вводился цифрами. В коде ничего не меняла.

Полный текст кода:

Private Sub butExit_Click()
    DoCmd.Close
End Sub

Private Sub butOpen_Click()
Dim rstTemp As Recordset
Dim s, strPassword As String
    If IsNull(Пароль) Then
        MsgBox "Введите пароль!", vbCritical, "Администратор"
        Пароль.SetFocus
        Exit Sub
    End If
    strPassword = RegKluch(Пароль.Value)
    Set rstTemp = CurrentDb.OpenRecordset("tAdminCop")
    s = rstTemp!Password
    rstTemp.Close
    If strPassword <> s Then
        MsgBox "Не верный пароль!", vbCritical, "Администратор"
        Пароль = Null
        Пароль.SetFocus
        Exit Sub
    Else
        flgEnabled = True
        DoCmd.OpenForm "frmStart"
        DoCmd.Close acForm, Me.Form.Name
    End If
End Sub

Private Sub Form_Open(Cancel As Integer)
    НадпВерс.Caption = NomWers
    Пароль.SetFocus
End Sub

Private Sub КнИзмПароль_Click()
    DoCmd.OpenForm "USysfrmНовыйПароль"
End Sub

[Aleksandr H.]

tAdminCop присутствует в базе?

[shanemac51]

попробуйте уточнить ссылку

Dim rstTemp As dao.Recordset