he estado viendo una copia del bd y he encontrado este codigo al parecer es para restringir el acceso es bastante raro por que si no habilito el security warning la bd abre sin problemas al parecer es para ponerle una contraseña a la bd pero me puedo sin conectar sin ella
este es el codigo
Código:
Option Compare Database
Option Explicit
Private Sub Command10_click()
txtPassword.SetFocus
If Len(Trim$(txtPassword.Text)) = 0 Then
MsgBox "This database is not accessible", vbCritical, "Access Denied"
DoCmd.Quit
Else
If (Trim$(txtPassword.Text)) = "southfork" Then
DoCmd.Close
Else
MsgBox "This database is not accessible", vbCritical, "Access Denied"
DoCmd.Quit
End If
End If
End Sub
Private Sub OK_Click()
DoCmd.Quit
End Sub
y esta es mi cadena de conexion
Código:
Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=B:\AldeloDB.mdb;Mode=Share Deny None;Extended Properties="";Persist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False
graciasp or cualquier idea