Data fra Exel til Word istedet for Acces til Word

Jeg har et program i vba der trækker data fra Acces til Word.
Kan jeg lige så snildt trække data fra exel ved at ændre i programmet. Det er de samme data, men de lægger bare i et regneark.
Jeg prøver at vedlægge prog.
Sub Indtast()
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,Navn, 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("Navn") & vbCrLf
        Selection.TypeText Text:="" & objRs("Adresse") & vbCrLf
      Selection.TypeText Text:="" & objRs("postby") & vbCrLf
 
objRs.Close
objConn.Close
 
End If
End Sub