ho riprovato adesso utilizzando la stringa che mi ha suggerito mgmg

codice:
Db.Open "Provider=SQLOLEDB.1;Initial Catalog=" & DatabaseSql & ";Password=" & PasswordSql & ";User ID=" & UserIdSql & ";Data Source=" & DataSourceSql & ";Persist Security Info=false"
e l'errore si è mutato in:
Metodo 'Open' dell'oggetto '_Connection'non riuscito