Hente data fra access ind i excel

Hejsa,

Jeg har lavet et forsøg med at trække data fra access ind i excel og jeg har benyttet eks. fra denne her : http://www.eksperten.dk/spm/277875

Min kode ser sådanne ud:
----Macro modul----
Sub GetTable()
  Dim Db As Database
  Dim Rs As Recordset
  Dim Ws As Worksheet
  Dim Path As String
  Set Ws = ActiveSheet
  Dim sqlstr As String

  '*** sti til database ***
  Path = "C:\Kundedb.mdb"    'Her indsætter du navn og sti på din accessdatabase

  '*** SQL-streng med reference til A1 ***
  '**** dvs at den skal finde den record i access hvor Varenummeret er lig med det du har skrevet i A1
  sqlstr = "SELECT * FROM Kunder WHERE Kortnavn =" & Range("A1").Value & ";"


  '*** Hent data ***
  Set Db = Workspaces(0).OpenDatabase(Path, ReadOnly:=True)
  Set Rs = Db.OpenRecordset(sqlstr)
 
'*** Indsæt VareTekst i A5 og Disponent i A7 ***
  Ws.Range("D2") = Rs.Fields("Firmanavn")
  Ws.Range("D3") = Rs.Fields("Adresse")
  Ws.Range("C4") = Rs.Fields("Postnr")
  Ws.Range("D4") = Rs.Fields("Bynavn")

  '*** luk databasen igen ***
  Rs.Close
  Db.Close
 
End Sub

----ark modul----
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then Call GetTable
End Sub

Tabel = Kunder
Range("A1") = Kortnavn (som er en forkortet vers. af Firmanavn)

Men jeg får en fejl "3061" (Der var for få parameter. Der var ventet 1.)

Og jeg kan sgutte ikk rigtig hitte ud af hvad jeg gør forkert.

Er der nogen af jer eksperter som kan gennemskue hvad min fejl er???

På forhånd tak
dsj