[VB][probléme de connection sur un fichier]

Bonjour forum,

je voudrais me connecter sur un fichier excel qui se trouve dans "C:\Mes document....
j'ai réalisé ce programme
private sub cmd_click()
Dim BaseDonnée As Database
Dim Fiche As Recordset
Dim chemin As string

chemin = "C:\Mes documents\ami.xls
set Session = DBEngine.Workspaces(0)
Set BaseDonnée = Session.openDatabase(chemin & "ami.xls", False, False "excel 8.0;")
Set Fiches = BaseDonnée.Recordset ("ami", dbopenDynaset)
Set Fiches = Nothing
Set BaseDonnée = Nothing
End Sub

Mais quand j'exécute le programe, j'ai un message comme quoi que le fichier n'est pas trouvé.

si quelqu'un peut m'aider à resoudre ce probléme, je lui serai reconnaissant
merci d'avnce