Private Sub ShowLast(count as Integer)
Dim i As Integer
[COLOR=Green] 'reference the recordset object[/COLOR]
With Me.Recordset
[COLOR=Green] 'move to the last record[/COLOR]
.Movelast
[COLOR=Green] 'move up a few records[/COLOR]
For i = 1 to count
.MovePrevious
Next i
[COLOR=Green] 'and move to the last one again[/COLOR]
.Movelast
End With
End Sub