RE:conexión sin DSN Access User y passwd
Prueba con uno de estos dos métodos, según sea tu caso. Si todo va bien, a partir del End With ya podrás efectuar las conexiones con los Recordset de las Tablas de la forma habitual (Dim rst As New Adodb.Recordset, etc, etc) :
Abrir una base de datos protegida con Password (Usuario por defecto "admin"):
Dim cnn As New Adodb.connection
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source").Value = "C:\Bases de datos\NombreBase.mbd"
.Properties("User ID").Value = "admin" 'o el usuario correspondiente
.Properties("Jet OLEDB:Database Password") = "Password"
.Open
End With
--------------------------------------------------------------------------------------------------------
Abrir una base de datos protegida con grupo de trabajo:
Dim cnn As New Adodb.connection
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source").Value = "C:\Bases de datos\NombreBase.mbd"
.Properties("Jet OLEDB:System Database").Value = "C:\Archivos de programa\Microsoft Office\Office\System.mdw"
.Properties("User ID").Value = "Usuario"
.Properties("Password").Value = "Password"
.Open
End With
Un saludo
Enrique