Есть код
Dim НАБОР_ЧЕЛОВЕК As DAO.Recordset
If IsNull(Me.ФИО) Or IsNull(Me.Дата_рождения) Then Exit Sub
Set НАБОР_ЧЕЛОВЕК = CurrentDb.OpenRecordset("SELECT * FROM Таблица1 " _
& "WHERE [ФИО]='" & Me.ФИО & "' " _
& "and [Дата рождения]=" & Format(Me.Дата_рождения, "\#mm\/dd\/yyyy\#"))
If Not НАБОР_ЧЕЛОВЕК.EOF Then
Me.серия_№_паспорта = НАБОР_ЧЕЛОВЕК![серия № паспорта]
Me.Адрес_регистрации = НАБОР_ЧЕЛОВЕК("Адрес регистрации")
End If
НАБОР_ЧЕЛОВЕК.Close
Set НАБОР_ЧЕЛОВЕК = Nothing


как переделать данную строчку на текстовый тип поля

& "and [Дата рождения]=" & Format(Me.Дата_рождения, "\#mm\/dd\/yyyy\#"))

http://www.sql.ru/forum/1184471/pomogite-s-kodom