'four commandbuttons index 0 -3
'make a connection to a database
'make a recordset called rs

Private Sub Command1_Click(Index As Integer)
    
    Select Case Index
    Case 0  'last one
        rs.MoveLast
    Case 1  'previous record
        rs.MovePrevious
        If rs.BOF Then MsgBox "First record", vbInformation: rs.MoveFirst
    Case 2  'next record
        rs.MoveNext
        If rs.EOF Then MsgBox "Last record", vbInformation: rs.MoveLast
    Case 3  'first one
        rs.MoveFirst
    End Select
    'call your procedure to show the record
    Call ShowRecord
    
End Sub
Return