Private Sub Command3_Click()
Data1.Recordset.MoveNext
Do While Not Data1.Recordset.EOF = True
    If Data1.Recordset("CrimeID") = Crimes Then
        found = True
        Exit Do
    Else
        Data1.Recordset.MoveNext
        found = False
    End If
Loop
If found = True Then
    susname = Data1.Recordset("SuspectName")
    caseno = Data1.Recordset("CaseNo")
    compid = Data1.Recordset("CompID")
    age = Data1.Recordset("SuspectAge")
    Crimeloc = Data1.Recordset("CrimeLoc")
    date = Data1.Recordset("FilledDate")
    time = Data1.Recordset("FilledTime")
    Command4.Enabled = True
Else
    MsgBox "No more record match", vbExclamation, "NO MATCH FOUND"
    Command3.Enabled = False
End If
Command1.Enabled = True
End Sub


Private Sub Command4_Click()
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF = True
    If Data1.Recordset("CrimeID") = Crimes Then
        found = True
        Exit Do
    Else
        Data1.Recordset.MoveNext
        found = False
    End If
Loop
If found = True Then
    susname = Data1.Recordset("SuspectName")
    compid = Data1.Recordset("CompID")
    caseno = Data1.Recordset("CaseNo")
    age = Data1.Recordset("SuspectAge")
    Crimeloc = Data1.Recordset("CrimeLoc")
    date = Data1.Recordset("FilledDate")
    time = Data1.Recordset("FilledTime")
    Command3.Enabled = True
Else
    MsgBox "No more record match", vbExclamation, "NO MATCH FOUND"
    Command4.Enabled = False