Как работать с полями формы в access

[IceExecutioner]

Привет, есть БД Access 2007 с одной таблицей "2011" в ней поля:
код,фамилия, имя, отчество, дата рождения,дата посещения, цель визита.
Для удобства ввода создана форма к таблице с указанными полями для ввода. Поставили задачу при вводе фио и даты рождения должно выводиться сообщение, когда был последний раз данный человек.
Сделал фунцию на VBA и повесил её на событие onExit (Выход) каждое из полей фамилия, имя, отчество, дата рождения

Private Sub CheckDouble()
    Dim s, n, p As String
    Dim bd As Date
    Set s = Me.Фамилия.Text
    Set n = Me.Имя.Text
    Set p = Me.Отчество.Text
    Set bd = Me.Возраст.Text
    Dim sql As String
    sql = "SELECT [Код],[Дата заезда],[Фамилия],[Имя],[Отчество],[Дата рождения] FROM 2011 WHERE ([Фамилия]=" & s & ") AND ([Имя]=" & n & ") AND ([Отчество]=" & p & ") AND ([Дата рождения=" & bd & "])"
    MsgBox (sql)
End Sub

Вопрос почему при присвоении переменной s (и не только ей) вылетает ошибка "object required"? А также правильно составлен sql и вывод его через сообщение?

[gluk_fm]

Может лучше так:
Dim db as database
set db = currentdb

set t= db.openrecordset("SELECT [Код],[Дата заезда],[Фамилия],[Имя], [Отчество],[Дата рождения] FROM 2011 WHERE ([Фамилия]=" & s & ") AND ([Имя]=" & n & ") AND ([Отчество]=" & p & ") AND ([Дата рождения=" & bd & "])"
MsgBox (" & t & ")

[gluk_fm]

Но что-то мне подсказывает что в рекордсете появится не одна запись, так как человек приходит не один раз....