Private Sub Form_Current()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("select top 1 [воинское звание] from звания where [код сотрудника]=" _
& Me.Код_сотрудника & " order by [дата присвоения] desc")
Me.последнееЗвание = rs(0)
End Sub