因為在網上看了一下破解access密碼的幾個vb函數， 就拿出來和大家一起分享一下， 教大家用vb來編寫一個簡單的工具吧。 　　打開vb， 新建一個標準EXE工程， 添加3個label控件， 3個text控件， 2個command控件， 做出如圖1所示的界面。  　　要破解access的密碼需要用到下面幾個函數：GetFileName， FileExists， FileName， GetStrFromBuffer， GetAccessPwd， GetPwdDirect， Hex2ByteA， LoGetEncryptStr， LoGetKey。 因為這些函數都不是Windows API函數， 所以需要我們進行自定義。 點擊“工程”， 添加一個模塊， 如圖2，  把函數定義寫進去， 由于代碼過長， 我就不一一例舉了。 接下來大家請看窗體部分的代碼：Private Sub path_Click()Text1.Text = GetFileName(True)End SubPrivate Sub pass_Click()Dim sFileAs StringDim sPasswd As StringDim sVersion As StringsFile = Text1.TextsPasswd = GetAccessPwd(sFile, sVersion, True)If gbExit Then Exit SubText2.Text = sVersionText3.Text = sPasswdEnd Sub當點擊“選擇路徑”時， 就會調用GetFileName函數來取得目標數據庫的路徑， 然后賦值給Text1。 當點擊“破解密碼”時， 則調用GetAccessPwd函數來取得數據庫的密碼， 把數據庫的版本號傳到Text2， 把密碼傳給Text3。     現在， 這個小東西已經弄好了， 我們來生成EXE文件看看它的效果吧， 如圖3。