Importere fra et excel regneark (vba)

[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?!