Не судите строго,я только учусь.
Проблема:
Есть БД с таблицой "пользователи"
Когда делаю форму для логирования прописываю:

Option Compare Database
 
Private Sub cmdLogin_Click() 'cmdLogin - это имя кнопки для которой пишется сценарий
Dim rst As DAO.Recordset
 
Set rst = CurrentDb.OpenRecordset("Пользователи") 'Пользователи - указываем с какой таблицей будет работать сценарий
  With rst
  If IsNull(Me.cboCurrentEmployee.Value) Then 'Условие если поле выпадающего списка на момент клика пустое, то
  MsgBox "Ошибка входа! Введите Логин."
  Exit Sub
  Else:
  .FindFirst ("Логин=" & Me.cboCurrentEmployee.Value)'<- Здесь ошибка "Операция не поддерживается для обьектов данного типа"
If .NoMatch Then ' Если нет совпадений, то
  MsgBox "Ошибка входа! О данном пользователе нет информации в БД."
  Exit Sub
  Else:
  If Me.Поле_для_пароля.Value <> .Fields("Пароль").Value Then 'Условие для сравнения введенных данных в поле для пароля с колонкой пароль в таблице "Сотрудники"
  MsgBox "Пароль неправильный или не соответствует имени пользователя"
  Exit Sub
  End If
  If IsNull(Me.Поле_для_пароля.Value) Then ' Условие для ошибки в случае, если поле для пароля не заполненное
  MsgBox "Вы не ввели пароль!"
  Exit Sub
  End If
  DoCmd.Close 'Команда на закрытие текущей формы, в данном случае формы входа
  Select Case .Fields("Номер_роли").Value
  Case "1"
  DoCmd.OpenForm "Литература"
  Case "2"
  DoCmd.OpenForm "Сотрудники"
  Case "3"
  DoCmd.OpenForm "Графики" 'отбор по полю должность и команда открытие указаной формы для соответсвующей должности
End Select
  End If
  End If
  End With
rst.Close
Set rst = Nothing
End Sub

Все перепробовал, или скорее всего все, подскажите пожалуйса

http://www.sql.ru/forum/1072612/pomogite-ispravit-oshhibku