既存のMDBのフォームを開く

//Accessを操作するためのオブジェクトライブラリを読みこむ(Access2000用)
#import "C:\Program Files\Microsoft Office\Office\Mso9.dll" no_namespace rename("DocumentProperties", "DocumentPropertiesACC")
#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\Vbe6ext.olb" no_namespace
#import "C:\Program Files\Common Files\SYSTEM\ADO\msado21.tlb" rename("EOF", "EOF_ACC")
#import "C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll" rename("EOF", "EOF_ACC")
#import "C:\Program Files\Microsoft Office\Office\Msacc9.olb"


//実行用コード
void CAccopenfrmDlg::OnButton1() 
{
	using namespace Access;
	_ApplicationPtr pAppMdb;
	
	//Accessを起動する
	pAppMdb.CreateInstance(L"Access.Application");

	//表示させる
	pAppMdb->Visible = true;

	//新規MDBファイルを作成
	pAppMdb->OpenCurrentDatabase("C:\\temp\\db1.mdb",false);

	//フォームを開く
	pAppMdb->DoCmd->OpenForm("Test", acNormal, "", "", acFormEdit, acWindowNormal);

	AfxMessageBox("動作確認のために一時停止");

	//Accessアプリケーションを保存しないで終了
	pAppMdb->Quit(acQuitSaveNone);		
}