More then 1 output

Sorry guys, I'm completely new to databases so maybe this is a very stupid question, but we'll see that later.:)

I have a database with a lot of customer data and I want to do this search on it:

VB Code:

Set RS = DB.OpenRecordset("SELECT * FROM Customer WHERE UserName = 'Smith'", dbOpenDynaset)

This gives me multiple records since there are more then 1 Smiths in my db. How do I get all these records. 'cause if I now do this:

VB Code:

With RS 
blablabal

I only get the first record.

What do I need to do to get all the records and put there names say in a listbox?

tnx very much !

guess u'r looking for something like this

VB Code:

While Not RS.EOF
   List1.AddItem RS("FieldName")
   RS.MoveNext
Wend