I am trying to loop thru a record set to find ALL the matching
files
and I keep coming up empty handed!  here is what I am doing
(wrong):

-----------------------------snip------------------------------------------

Private Sub cmdFind_Click()
Dim FindLastName As String
Dim FindFirstName As String
Dim UserResp As String
Dim L As Integer
FindLastName = txtFields(0)
FindFirstName = txtFields(1)
L = Data1.Recordset.RecordCount
frmCEUInput.Hide
frmCEUPrint.Show
Do
With Data1.Recordset
            ' Populate recordset.
            .MoveLast
            ' Find first record satisfying search string. Exit
            ' loop if no such record exists.
            .FindFirst (FindLastName)
            If Data1.Recordset.LastName = FindLastName And
Data1.Recordset.FirstName = FindFirstName Then
            frmCEUPrint.lstPrint.AddItem
(Data1.Recordset.RecordIndex(L))
            L = L + 1
            Else
            L = L + 1
            UserResp = MsgBox("No records found with " &
FindLastName & ".")
                Exit Do
            End If
End With
Loop
End Sub
------------------------------snip-------------------------------------------

ALL suggestions will be greatly appreciated!
Cliff

WIthout going through your code piece by piece, I would offer a quicker
solution. Try using a very simple SQL statement for the recordset. Assuming
you do not want to mess up your existing recordset, you may want to use DAO
objects instead of the data controls for this, but if you can use the data
controls, I think what you would want is...

Data1.Recordsource = "SELECT * from Table where Lastname = '" & FindLastName
& "' and FirstName = '" & FindFirstName & "'"
Data1.Refresh

Now you should simply be able to loop through the recordset. Each item will
have a matching Lastname and Firstname.

You are doing many things wrong. I think you need to do some more reading on databases.
You need to create a recordset and do your searches off of that. If the only thing you want to do is to list all entries with
matching names and don't need the recordset anywhere else, then create the recordset with that query to begin with. Then you can
loop through the entire recordset adding whatever field(s) you want from each record to your listbox.

Private Sub cmdFind_Click()
Dim I as Integer
Dim SearchString as String
Dim MyRecordSet as RecordSet

SearchString = "Select * from MyTable Where [lastname] = '" & txtFields(0) & "' & _
        AND [firstname] = '" & txtFields(1) & "'"
Set MyRecordSet = Data1.OpenRecordSet(SearchString, dbOpenDynaset)
if MyRecordSet.RecordCount > 0 then
        MyRecordSet.MoveLast
        MyRecordSet.MoveFirst
        For I = 0 to MyRecordSet.RecordCount - 1
                frmCEUPrint.lstPrint.AddItem MyRecordSet.fields("fieldname")
                MyRecordSet.MoveNext
        Next I
End If
End Sub

If your recordset is already created from elsewhere in your program, do this.

Private Sub cmdFind_Click()
Dim SearchString as string

SearchString = "[lastname] = '" & txtFields(0) & "' AND " & [firstname] = '" & txtFields(1) & "'"
MyRecordSet.FindFirst searchstring
Do While MyRecordSet.NoMatch = False
        frmCEUPrint.lstPrint.AddItem MyRecordSet.fields("fieldname")
        MyRecordSet.FindNext SearchString
Loop
End Sub

To get values from a recordset you access the recordset's Fields property
(text1.text = MyRecordSet.Fields("nameofthefieldhere")

--
If I were you, I would use a Table Type Recordset and use indexes.
Suppose your table has two fields called FIRSTNAME and LASTNAME.
Name the index NAMEIDX and include those two fields on the index - firts the
LastName and second the FirstName.
Now use this statement to sort the recordset:
        Data1.Recordset.Index = "NAMEIDX"
And use this to find the first matching record
        Data1.recordset.Seek "=", "'" & FindLastName & "'", "'" &
FindFirstName & "'"
        If Data1.Recordset.Nomatch Then Exit Sub
        Do
            frmCEUPrint.lstPrint.AddItem (Data1.Recordset.RecordIndex(L))
            L = L + 1
            Data1.Recordset.MoveNext
            If (Data1.Recordset![LASTNAME] <> FindLastName) Or
(Data1.Recordset![FIRSTNAME] <> FindFirstName) Thne
                UserResp = MsgBox("No records found with " & FindLastName &
".")
                    Exit Do
            End If
        Loop Until Data1.Recordset.EOF

_____________________
JOEL PAULA
"why he did not crane out to see
what lay beneath was perhaps because
the window was not made to open
or because he could or would not open it."
- Samuel Beckett - "stirrings still"