excel vers access

[woo]

Bonjour,
je suis débutant, j'ai récupéré un bout de code pour transféré des feuilles excel2003 sous access2003 et il y a erreur. Qui peut m'aider svt?
Sub ImportationGlobale()
Dim appXl As Excel.Application
Dim intNbFeuille As Integer
Dim intIndex As Integer
Dim avarTabFeuille() As Variant
Dim WorkSheet As Excel.WorkSheet
Dim tdf As TableDef
Set appXl = CreateObject("Excel.Application")
intNbFeuille = 1

'OUVRE LE FICHIER .XLS ET TROUVE LERS DIFFERENTES FEUILLES
With appXl
.Workbooks.Open "C:\monfichier.xls"
ReDim avarTabFeuille(.Worksheets.Count)
For Each WorkSheet In .Worksheets
avarTabFeuille(intNbFeuille) = WorkSheet.Name
intNbFeuille = intNbFeuille + 1
Next
.Quit
End With
Set appXl = Nothing

'CREE UNE TABLE LINKEE POUR CHACUNES DES FEUILLES TROUVEES
For intIndex = 1 To UBound(avarTabFeuille)
fEntrer = False
Set tdf = CurrentDb.CreateTableDef(avarTabFeuille(intIndex))
tdf.Connect = "Excel 8.0;DATABASE=" & Result
tdf.SourceTableName = avarTabFeuille(intIndex) & ""
CurrentDb.TableDefs.Append tdf
CurrentDb.TableDefs.Refresh
Next
End Sub

Le message d'erreur est:
Erreur d'execution 3321
aucune base de données spécifiée dans la chaine de connexion ou dans la clause IN.