Can someone please help me with the code to populate a listbox with data in a table

What I want to do is enter a name (txtname.text) and then search for all records in the table which matches that name and then display it in a listbox.

public sub search()

Dim strFind As String

strFind = "surname like '" & txtClientSurname & "*' "
rsRecord.Find strFind

end sub


How do I display all records in the recordset to the listbox from where the user can double click the record he wants.

ANY help please!!