dim ODBCSTRING
ODBCSTRING="ODBC;DRIVER=SQL Server;SERVER=miserver;DATABASE=midatabase;UID=sa; PWD=sa;"
Set MainMDB = DBEngine.Workspaces(0).OpenDatabase(("", True, False, ODBCstring)
cambia miserver por tu servidor, midatabase por la base de datos y asigna los valores correctos de uid y pwd
puedes eliminar los valores uid y pwd si quieresconectar con autentificación windows, entonces indica el parámetro Trusted_Connection=yes;
Jose Sanchez Carvajal
[email protected]