Recherche de fichier

Voila j'ai un probleme incomprehensible.
J'utilise la propriete filesearch pour voir si une base de données éxiste ou non. Si elle éxiste a l'emplacement sélectionné, on se connecte sinon on averti l'utilisateur. Mais dans tous les cas qu'il trouve ou pas il essaye de se connecter ce qui pose probleme quand la base n'éxiste pas. Pourtant il y a encore quelques jours le code fonctionnai bien c'est ca que je comprends pas. Si quelqu'un pouvait m'aider. Merci d'avance.
Voici une portion du code:

dim chemin as string

Set dlg = Application.FileDialog( _
FileDialogType:=msoFileDialogFolderPicker)

If dlg.Show = -1 Then
chemin = dlg.InitialFileName
Else
Exit Sub
End If

'On verifie si la base de données existe deja

With Application.FileSearch
.NewSearch
.LookIn = chemin
.Filename = "Carnet.mdb"


If .Execute = 0 Then
msgbox "La base n'éxiste pas"
else
'On se connecte
end if

end with