VC修改Access密码

void ModifyDBCode()
{
 CString strPath;
 ::GetModuleFileName(GetModuleHandle(NULL),strPath.GetBuffer(256),256);
 strPath.ReleaseBuffer();
 int flag=strPath.ReverseFind('\\');
 int size=strPath.GetLength();
 strPath.Delete(flag,size-flag);
 strPath= strPath+ _T("\\test.mdb");     //数据库名称
 CString strConn=_T("Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=");
 CString buf=strPath;
 ASSERT(buf != _T(""));
 strConn+=buf;
 strConn+=_T(";Jet OLEDB:Database Password = ");
 strConn+= g_strPassword;
 strConn+=_T(";Mode=Share Deny Read|Share Deny Write");      // du zhan fang shi da kai
 CADODatabase pAdoDb;
 pAdoDb.SetConnectionString(strConn);
 if(!pAdoDb.Open()) return;
 CString strExe = _T("ALTER DATABASE PASSWORD [");
 strExe += m_strNewCode;
 strExe += _T("] [");
 strExe += g_strPassword;
 strExe += _T("]");
 pAdoDb.Execute(strExe);
}