Try the following on your form's open event. The If test prevents a runtime
error when there are no records in the form. Also, this assumes that the
form's recordset is already sorted accordingly.
Private Sub Form_Open(Cancel As Integer)
If Not (Me.Recordset.EOF And Me.Recordset.BOF) Then
Me.Recordset.MoveLast
End If
End Sub