Data fra accestabel til Exel

Hej igen
jeg har en vbakode i word der trækker data fra en accestabel. Jeg kender ikke så meget til vba i exel..hvad skal laves om hvis den skal virke i exel??

her er koden:Sub Kunde()
Kundenr = InputBox("indtast kundenr")
    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 Kundenr = " & Kundenr
    objRs.Open strSQL, objConn
       
    If Not objRs.EOF Then
       
        Selection.TypeText Text:="Kundenr: " & objRs("Kundenr") & vbCrLf
        Selection.TypeText Text:="" & objRs("Navn1") & vbCrLf
        Selection.TypeText Text:="" & objRs("Adresse") & vbCrLf
        Selection.TypeText Text:="" & objRs("postby") & vbCrLf
 
Range("a2").CopyFromRecordset objRs

objRs.Close
    objConn.Close
 
Else
    MsgBox "Kundenr. findes ikke"
   

    End


End If
 
End Sub