se data fra acces

Hej
Jeg har et program der ovf data fra Access til et område i exel.
Jeg vil gerne have vist dataene i stedet i en listbox. Jeg har lavet en userform1 og en listbox1 men jeg kan ikke rigtigt finde ud af syntaksen i Additem..for det må vel være den der skal bruges altså noget med  listbox1.AddItem ??????

Jeg prøver at vedlægge programmet!
Sub Kunde()
        tlfnr = InputBox("indtast tlfnr")
        Dim objConn As ADODB.Connection
        Dim objRS As ADODB.Recordset
        Dim strConnString As String
        Dim strSQL As String
   
        Set objConn = New ADODB.Connection
        Set objRS = New ADODB.Recordset
       
        strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\dokumenter\kartoteker.MDb"
        objConn.Open strConnString
       
        strSQL = "SELECT Kundenr,Navn1, Adresse, postby FROM kundekartotek WHERE tlfnr = " & tlfnr
        objRS.CursorType = adOpenStatic
        objRS.Open strSQL, objConn
       
       
        If Not objRS.EOF Then
           
         
            Range("A1") = objRS("Kundenr")
            Range("a2") = objRS("Navn1")
            Range("a3") = objRS("Adresse")
            Range("a4") = objRS("postby")             
                     
   
    objRS.Close
    objConn.Close
   
    Else
        MsgBox "tlfnr. findes ikke"
       
        End
   
    End If
   
    End Sub