Base de datos programación vba inicio de sesión con contraseña de múltiples cuentas

Atenuar SQL como cadena

Atenuar i como entero

mydata = ThisWorkbook.Path & "\Addressbook.mdb" 'Especificar base de datos

mytable = "Chongtong Company" 'Especificar tabla de datos

Set cnn = New ADODB.Connection 'Establecer una conexión con la base de datos

Con cnn

.Provider = "microsoft.jet.oledb.4.0"

.Properties("Fuente de datos") = mytable

.Properties("jet oledb:contraseña de la base de datos") = "mm1314" ' Contraseña

.Abrir mis datos

Terminar con