Data til listbox

Jeg har et program der ovf data fra acces til exel..jeg opfanger dobbeltposter..dem ligger jeg ind i en listbox, hvor der kan vælges hvilken post der skal ovf..Mit problem er at jeg gør det på en bøvlet måde.. jeg trækker data over i et område i exel først og derfra henter jeg dem ind i listboxen..Kan det ikke gøres mere smart..altså at de opfangede data ovf. direkte til listboxen??

jeg vedlægger en stump kode:

If objRS.RecordCount > 1 Then
    Worksheets("ark2").Activate
    Range("f2").CopyFromRecordset objRS
    UserForm1.Show
     
End If

    If Not objRS.EOF Then
       
        Range("A1") = objRS("Kundenr")
        Range("a2") = objRS("Navn1")
        Range("a3") = objRS("Adresse")
        Range("a4") = objRS("postby")