Importere verdier fra excel til access

[Knut_F]

Public Sub import(filnavn As String)
Dim db As DAO.Database, rs As DAO.Recordset
Set db = OpenDatabase(filnavn, False, True, _ 
"Excel 8.0;HDR=Yes;")Set rs = db.OpenRecordset("SELECT * FROM [Ark1$]")
End Sub

 

Det jeg prøver på er å importere noe som står i et excel regneark, men programmet bryter sammen etter denne linja " Set rs = db.OpenRecordset("SELECT * FROM [Ark1$]") "

Noen som har en idee om hva som er feilen?!