procedure TForm2.MakeMDB;
{
  MDB를 만들고자 하는 것은 WriteDB함수에서 호출을 하며 디비파일이 있는지 없는지
  검사하여 쓰기를 행한다.
}
var
  S, DirName : String;
  i : integer;
begin
  DirName := 'C:';

  // 파일존재여부(true(존재),false(없음)
  If Not ChkFile(DirName + 'FANTrend.mdb') Then // 파일이 없으면.
  Begin
    if SQLConfigDataSource(Handle, 1, LPCSTR('Microsoft Access Driver (*.mdb)'),
                           LPCSTR('CREATE_DB=' + DirName + 'FANTrend.mdb General')) then // FANTrend.mdb를 만들고,
    Begin
      ADOConnect.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
         'Data Source=' + DirName + 'FANTrend.mdb'+';Persist Security Info=False'; // 트랜드 mdb파일과 연결시키고
      AQ.SQL.Clear;
      AQ.SQL.Add('CREATE TABLE Trend ('); // Trend 라는 Table를 만들고

      // 인덱스 설정부분
      AQ.SQL.Add('ID Counter Primary Key,');
      // 각 필드 설정
      AQ.SQL.Add('Trd_DateTime TEXT(20) NOT NULL,');
      for i:=0 to TrdNo.Value-1 do
      begin
        S := '';
        S := AdvColumnGrid1.Cells[1,i+1]+' INT NULL,';
        AQ.SQL.Add(S);
      end;
      AQ.SQL.Add('REST INT NULL)');
      AQ.ExecSQL;
      Sleep(50);
      ADOConnect.Connected := true;
      ADOConnect.BeginTrans ;
      AQ.Connection := ADOConnect;

      Exit;
    End;
  End Else
  begin

{
    if MessageDlg('파일이 이미 존재합니다. 다시만들까요?',
                   mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin

      if DeleteFile('C:FANTrend.mdb') then
      begin
        if SQLConfigDataSource(Handle, 1, LPCSTR('Microsoft Access Driver (*.mdb)'),
                               LPCSTR('CREATE_DB=' + DirName + 'FANTrend.mdb General')) then // FANTrend.mdb를 만들고,
        Begin
          ADOConnect.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
             'Data Source=' + DirName + 'FANTrend.mdb'+';Persist Security Info=False'; // 트랜드 mdb파일과 연결시키고
          AQ.SQL.Clear;
          AQ.SQL.Add('CREATE TABLE Trend ('); // Trend 라는 Table를 만들고

          // 인덱스 설정부분
          AQ.SQL.Add('ID Counter Primary Key,');
          // 각 필드 설정
          AQ.SQL.Add('Trd_DateTime TEXT(20) NOT NULL,');
          for i:=0 to TrdNo.Value-1 do
          begin
            S := '';
            S := AdvColumnGrid1.Cells[1,i+1]+' INT NULL,';
            AQ.SQL.Add(S);
          end;
          AQ.SQL.Add('REST INT NULL)');
          AQ.ExecSQL;
          Sleep(50);
          ADOConnect.Connected := true;
          ADOConnect.BeginTrans ;
          AQ.Connection := ADOConnect;

          Exit;
        End;
      end;
    end;

}
  end;
End;

참조하시구여...테스트는 Windows 2000, Delphi50으로 했습니다..

선언부 없이 IMPLEMENT아랫부분 부터 쓰니까 잘 되네요...

큰 도움 되었습니다... 감사합니다.