Dove viene generato l'errore ?

Comunque intanto prova sostituendo

.Provider = "MSDASQL"

con

.Provider = "Microsoft.Jet.OLEDB.4.0"

Ciao Ciao !