Listbox - DataSource

Efter at have fundet data fra en tabel:

Dim db1 As Database
Dim rs1 As Recordset
Set db1 = OpenDatabase("C:\vb.mdb", True)
Set rs1 = db1.OpenRecordset("SELECT * FROM table1", dbOpenDynaset, dbReadOnly)

er det så ikke muligt i eet hug at fylde en listbox op med data fra recordsettet fx. ved brug af listboxens DataSource?