Еще раз здравствуйте...
вот код:

Private Sub Кнопка20_Click()
Dim strPassword, strPodpis, strCriteria As String
Dim dbsListPersonal As Database
Dim rst As Recordset
' Возвращает ссылку на текущую базу данных.
Set dbsListPersonal = CurrentDb
Set rst = dbsListPersonal.OpenRecordset("Список служащих", dbOpenDynaset)
' Заполняет объект Recordset.
rst.MoveLast
' Возвращается к первой записи.
rst.MoveFirst
rst.Seek "=", "Иванов"
strPodpis = rst!Подпись
strPassowrd = InputBox(strPodpis, "Доступ")
rst.Close
End Sub

и при нажатии на кнопку выдается сообщение:

Run time error
Type mithmatch

и ругается на строку
Set rst = dbsListPersonal.OpenRecordset("Список служащих", dbOpenDynaset)
Почему?
Вроде все правильно.

Заранее благодарен.

Фишка в следующем....:
1) Подключаем Библиотеку Microsoft DAO 3.6 Object Library
2) Пишем Dim rst As DAO.Recordset

И все работает

Спасибо за подсказки...