Set cnADO = New ADODB.Connection

cnADO.Provider = "Microsoft.Jet.OLEDB.3.51"
cnADO.Properties("Jet OLEDB:Database Password") = "PASSWORD"
cnADO.Properties("Data Source") = "C:\Example.mdb"

cnADO.Open