Доброго времени суток! Будьте добры, помогите, в VBA я совсем ноль и потому не могу прикрутить к своей БД этот код:

Private Sub cmdLogin_Click()
Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("Сотрудники")
      With rst
                 If IsNull(Me.cboCurrentEmployee.Value) Then
                       MsgBox "Ошибка входа! Выберите пользователя."
                       Exit Sub
                 Else:
                 .FindFirst ("ID=" & 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 "Директор"
                 DoCmd.OpenForm "Партнеры"
         Case "Координатор по продажам"
                 DoCmd.OpenForm "Накладные"
         Case "Просто ходит за зарплатой"
                 DoCmd.OpenForm "Форма_для_меня_и_босса"
End Select
                 End If
                 End If
      End With
rst.Close
Set rst = Nothing
End Sub

Поясните пошагово, как это сделать? А в идеале пример реализации.

http://www.sql.ru/forum/1296553/ispolzovanie-logina-i-parolya-v-access