Conectar una BD access 2016 con excel 2016

Tengo que conectarme a una bd access 2016 desde Excel. Esta base de datos tiene clave o password, la misma fue creada en el mismo access en el menu.

La password es 123. Me ayudan por favor, Porque no puedo hacer la conexión, el sistema se conecta sin ningún tipo de problemas sin password
Pero tengo que colocarle un password a la bd.

El código es el Siguiente:

Sub consultarAccess()
'Dim cn As ADODB.Connection
Dim cn As Object
Dim datos As Object
Dim consultasql As String
Dim conexion As String
Dim cont As String

Set cn = CreateObject("ADODB.Connection")
conexion = "Provider=Microsoft.ACE.OLEDB.16.0;DataSource=E:\DESCARGAS\NORTHWIND.ACCDB;"
consultasql = "Select * from customers;"
cn.Open conexion
Set datos = cn.Execute(consultasql)
cont = 6
Do While Not datos.EOF
Cells(cont, 2) = datos.Fields(0)
Cells(cont, 3) = datos.Fields(1)
Cells(cont, 4) = datos.Fields(2)
Cells(cont, 5) = datos.Fields(3)
cojnt = cont + 1
datos.Movenext
Loop
datos.Close
Set datos = Nothing
cn.Close
Set cn = Nothing
End Sub

1 Respuesta

Respuesta
1

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas