//根据网上经验和方法用C#做一个破解程序
　　// 本程序最多取16位密码
　　using System.IO;
　　using System.Windows.Forms;
　　class Access
　　{
　　// 获取密码
　　static string GetPassword(string file)
　　{ // 未加密的文件0x42开始至0x61之前的每间隔一字节的数值
　　　byte[] baseByte = { 0xbe,0xec,0x65,0x9c,0xfe,0x28,0x2b,0x8a,0x6c,0x7b,0xcd,0xdf,0x4f,0x13,0xf7,0xb1, };
　　　byte flagByte = 0x0c; // 标志 0x62 处的数值
　　　string password = \"\";
　　　try
　　　{
　　　　FileStream fs = File.OpenRead(file);
　　 fs.Seek(0x14, SeekOrigin.Begin);
　　　　byte ver = (byte)fs.ReadByte(); // 取得版本, 1为Access2000, 0为Access97
　　　　fs.Seek(0x42, SeekOrigin.Begin);
　　　　byte[] bs = new byte[33];
　　　　if (fs.Read(bs, 0, 33) != 33) return \"\";
　　　　byte flag = (byte)(bs[32] ^ flagByte);
　　　　for(int i = 0; i < 16; i++)
　　　　{
　　byte b = (byte)(baseByte^bs[i*2]);
　　if (i%2==0 && ver==1) b ^= flag; //Access 2000
　　if (b > 0) password += (char)b;
　　　　}
　　 }
　　　catch {}
　　　return password;
　　}
　　// 主入口
　　static void Main()
　　{
　　　OpenFileDialog f = new OpenFileDialog();
　　　if (f.ShowDialog() != DialogResult.OK) return;
　　　MessageBox.Show(\"密码:[\" + GetPassword(f.FileName) + \"]\", \"密码\");
　　}
　　}

------解决方案--------------------
VB code

Private Function ChangeAccessPwd(ByVal OldPassword As String, ByVal NewPassword As String, ByVal DbPath As String) As Boolean
    On Error GoTo ErrorHandler

    Dim db As DAO.Database, ws As DAO.Workspace

    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase(DbPath, True, False, "MS Access;PWD=" & OldPassword)

    'Change password
    db.NewPassword OldPassword, NewPassword

    db.Close: Set db = Nothing
    ws.Close: Set ws = Nothing
    ChangeAccessPwd = True

Exit Function

ErrorHandler:
    Set db = Nothing
    Set ws = Nothing

    ChangeAccessPwd = False

End Function
ACCESS密码容易被破解。。