I am trying write a program where i can have multiple way to search for a record (i.e. by ID #, Last Name, Address, etc) and want to be able to once i find the first one be able to click a 'Next' button and find the next one closest to the original search (and eventually go to previous too). i have included my finding code for searching by ID # and my find.
Find Next
Code:
Private Sub cmdNextWorkOrder_Click()
'MsgBox "in NEXT"
Clearscreen
If Not (MyRecSet.EOF = True) Then
'MsgBox "In if"
    MyRecSet.MoveNext
    Populate
    End If
End Sub
Find First
Code:
Dim prompt As String
   prompt$ = "Enter the full (complete) Work Order ID."
   ' get string to be used in the ID field search
   FindingWorkOrderNumber$ = InputBox(prompt$, "Work Order Search")
   'MsgBox (SearchStr)
   Dim MyRecSet As ADODB.Recordset
Dim CheckSet As ADODB.Recordset
Set MyConn = New ADODB.Connection
MyConn.ConnectionString = location of file
MyConn.Open
   Set MyRecSet = MyConn.Execute("SELECT [WorkOrder].WorkOrderNumber, [WorkOrder].ResidentsFirstName, [WorkOrder].ResidentsLastName," & _
"[WorkOrder].ServiceAddress ,[WorkOrder].Apartment, [WorkOrder].City, [WorkOrder].State, [WorkOrder].DateCompleted, [WorkOrder].Updated," & _
"[WorkOrder].Zip, [WorkOrder].PhoneNumber, [WorkOrder].ChargeTo, [WorkOrder].EmailAddress, [WorkOrder].OwnerCode, [WorkOrder].ServiceRequest, " & _
"[WorkOrder].OrderReceivedBy, [WorkOrder].OrderGivenTo,[WorkOrder].TypeOfUnit, " & _
"[WorkOrder].DateReceived,[WorkOrder].TimeReceived " & _
"From [WorkOrder] " & _
"Where [WorkOrder].WorkOrderNumber = " & FindingWorkOrderNumber & " Order by WorkOrderNumber")


holdworkorderid = MyRecSet.Fields("WorkOrderNumber")
holdtypeofunit = MyRecSet.Fields("TypeOfUnit")
holdresidentsfirstname = MyRecSet.Fields("ResidentsFirstName")
holdresidentslastname = MyRecSet.Fields("ResidentsLastName")
holdserviceaddress = MyRecSet.Fields("ServiceAddress")
holdapartment = MyRecSet.Fields("Apartment")
holdcity = MyRecSet.Fields("City")
holdstate = MyRecSet.Fields("State")
holdzipcode = MyRecSet.Fields("Zip")
holdphonenumber = MyRecSet.Fields("PhoneNumber")
holdchargeto = MyRecSet.Fields("ChargeTo")
holdownercode = MyRecSet.Fields("OwnerCode")
holdservicerequest2 = MyRecSet.Fields("ServiceRequest")
holdorderreceivedby = MyRecSet.Fields("OrderReceivedBy")
holdordergivento = MyRecSet.Fields("OrderGivenTo")
holdemail = MyRecSet.Fields("EmailAddress")
holddatecompletedmonth = Left(MyRecSet.Fields("DateCompleted"), 2)
holddatecompletedday = Right(Left(MyRecSet.Fields("DateCompleted"), 5), 2)
holddatecompletedyear = Right(MyRecSet.Fields("DateCompleted"), 4)
holddatereceived = MyRecSet.Fields("DateReceived")
holdtimereceived = MyRecSet.Fields("TimeReceived")
holdupdated = MyRecSet.Fields("Updated")
holdPNAC = Right(Left(MyRecSet.Fields("PhoneNumber"), 4), 3)
holdPNP = Right(Left(MyRecSet.Fields("PhoneNumber"), 9), 3)
holdPNS = Right(MyRecSet.Fields("PhoneNumber"), 4)

Populate
old:
End Sub

any and all help is greatly appreciated.

Thanks,

B.S.