如何创建一个ACCESS数据库 (50分)

如何生成一个空白的没有表的ACCESS数据库？

const ODBC_ADD_DSN = 1;
function SQLConfigDataSource(hwnd:HWND;fRequest:WORD;lpszDriver:String;lpszAttributes:String):boolean;stdcall;external 'ODBCCP32.dll';
{ Create Database }
sWrkStr := 'CREATE_DB="' + txtFilename.Text + '";' ;
SQLConfigDataSource(0,ODBC_ADD_DSN,'Microsoft access Driver (*.mdb)',PChar(sWrkStr));

很好！