ADO Componet 쓰세요.
TADOConnection 객체에 connectionString 만들어서 해당 mdb 파일을 연 후에..

ADOConnection->Execute("CREATE TABLE TEST (idx int)");

같은 식으로 사용하시면 됩니다.
굳이 OLE 사용 안 하셔도 될듯...

이재민 님이 쓰신 글 :
: 허접 답변 사양  소스만 컴파일해도 알수있게 답해줘요.
: 자신 없음 다음 문장에 대해서만이라도 설명해주세요
: --> CreateObject("ADODB.Recordset");
:
: 질문 드리고 싶은건 첨부되 파일 소스를 수정해서 인위적으로 create table [tablename]어쩌구 저쩌구도 코드 상에서
: 실해이 되서 동적으로 테이블을 만들고 싶다는 겁니다.
:
: http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=19860
: 여기에 있는 소스(검색에서 ado access)  받아서 공부 하고 있는데요
: table 생성을 어떻게 해야하는지 잘 모르겠습니다.
:
: 다음은 mdb 여는 부분이고요...
: OpenDialog1->Title="Open MS Access database";
: Create=false;
:
: if(OpenDialog1->Execute())
:        {
:         if(!FileExists(Form1->OpenDialog1->FileName))
:          {
:           ShowMessage("File is not exist");
:           return;
:          }
:         Form1->Catalog.Exec(PropertySet("ActiveConnection") <<
:                 ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Form1->OpenDialog1->FileName));
:         Form1->Label2->Caption=Form1->OpenDialog1->FileName;
:         ListBox1->Clear();
:         Form1->CatTables=Form1->Catalog.Exec(Function("Tables"));
:         //numbers of tables
:         int NumTables=Form1->CatTables.Exec(PropertyGet("Count"));
:         Form4->ListBox1->Clear();
:         for(int i=0; i<NumTables; ++i)
:          {
:            Variant item=Form1->CatTables.Exec(PropertyGet("Item") << i);
:            Form1->ListBox1->Items->AddObject(item.Exec(PropertyGet("Name")),(TObject*)(IDispatch*)item);
:          }
:        }
:
: 다음은 mdb 만드는 부분입니다.
: OpenDialog1->Title="Create MS Access database";
: Create=true;
: if(OpenDialog1->Execute())
:        {
:         if(FileExists(Form1->OpenDialog1->FileName))
:          {
:           ShowMessage("File exist and will be recreated");
:           DeleteFile(Form1->OpenDialog1->FileName);
:          }
:         Form1->ListBox1->Clear();
:         Form1->Catalog.Exec(Function("Create") <<
:               ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Form1->OpenDialog1->FileName));
:         Form1->Label2->Caption=Form1->OpenDialog1->FileName;
:        }
:
: try
:         {
:          RecordSetDB=Variant::CreateObject("ADODB.Recordset");
:         }
:  catch(EOleSysError &err)
:         {
:          Application->MessageBox("Could not create Recordset object",err.Message.c_str(),MB_OK);
:          Application->Terminate();
:          return;
:         }
: ..
: ..
: ..
: ..
: 도대체 .Exec(PropertySet ... 이런건 어딜 참고로 만들어 지는지 알수가 없네요