Como quebrar senha do access

ACCESS 2000:
Dim n As Long, s1 As String * 1, s2 As String * 1
Dim lsClave As String

Open "c:anco.mdb" For Binary As #1
Open Text1.Text For Binary As #2
Seek #1, &H43
Seek #2, &H43
For n = 1 To 40 Step 2
   s1 = Input(1, 1)
   s2 = Input(1, 2)
   If (Asc(s1) Xor Asc(s2)) <> 0 Then
       lsClave = lsClave & Chr(Asc(s1) Xor Asc(s2))
   End If
   s1 = Input(1, 1)
   s2 = Input(1, 2)
Next
Close 1
Close 2
MsgBox "A senha é...:" & lsClave

=========================================================
ACCESS 97:
    Option Compare Binary
    Option Explicit

    Dim hFile As Integer
    Dim ich As Integer
    Dim stBuffer As String
    Dim rgbytRaw() As Byte
    Dim rgbytPassword() As Byte
    Dim rgbytNoPassword() As Byte

   stDatabase = "c:anco.mdb"

    rgbytNoPassword = ChrB(134) & ChrB(251) & ChrB(236) & ChrB(55) & ChrB(93) & _
                                ChrB(68) & ChrB(156) & ChrB(250) & ChrB(198) & ChrB(94) & _
                                ChrB(40) & ChrB(230) & ChrB(19) & ChrB(182) & ChrB(138) & _
                                ChrB(96) & ChrB(84) & ChrB(148) & ChrB(123) & ChrB(54)

    hFile = FreeFile
    Open stDatabase For Binary As #hFile
    Seek #hFile, 66 + 1
    rgbytRaw = InputB(20, #hFile)
    Close #hFile

    ReDim rgbytPassword(0 To 19)
    For ich = 0 To 19
        rgbytPassword(ich) = rgbytRaw(ich) Xor rgbytNoPassword(ich)
    Next ich

    stBuffer = StrConv(rgbytPassword, vbUnicode) & vbNullChar
    StPasswordOfStDatabase = Left$(stBuffer, InStr(1, stBuffer, vbNullChar, vbBinaryCompare) - 1)
    MsgBox "Senha de: " & stDatabase & " é '" & StPasswordOfStDatabase & "'", vbExclamation