Имеется код для формы с помощью, которого при внесении в поле "№паспорта" , если таковой уже имеется в БД, заполняются остальные поля автоматически по крайней записи.
Нужно, чтобы одно из полей (ПРИМЕЧАНИЕ) заполнялось не по крайней записи данного паспорта, а по первой записи данного паспорта.

Private Sub серия_№_паспорта_AfterUpdate()
Dim НАБОР_ЧЕЛОВЕК As DAO.Recordset
       Set НАБОР_ЧЕЛОВЕК = CurrentDb.OpenRecordset("SELECT * FROM Таблица1 WHERE [серия № паспорта]='" & Me.серия_№_паспорта & "' ORDER BY Код DESC")

    If Not НАБОР_ЧЕЛОВЕК.EOF Then
        Me.ФИО = НАБОР_ЧЕЛОВЕК("ФИО")
        Me.Дата_рождения = НАБОР_ЧЕЛОВЕК("Дата рождения")
        Me.Адрес_регистрации = НАБОР_ЧЕЛОВЕК("Адрес регистрации")
        Me.Примечание = НАБОР_ЧЕЛОВЕК("Примечание")
    End If
    НАБОР_ЧЕЛОВЕК.Close
    Set НАБОР_ЧЕЛОВЕК = Nothing
End Sub

http://www.sql.ru/forum/1178534/zapolnenie-poley-po-ranee-sushhestvuushhey-zapisi-bazy-dannyh