Ans:
Set objADODB=CreateObject("ADODB.Connection")
objADODB.Open "DSN=DsnName;UserID=UId;Password=pwd; DataBase=databasePath"
Follow @TestingQ
Set objADODB=CreateObject("ADODB.Connection")
objADODB.Open "DSN=DsnName;UserID=UId;Password=pwd; DataBase=databasePath"