conexion a bd de access con tadoconnections se bloquea

[richy08]

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

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

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