Нужно создать таблицу в access with ado

[hemn6vyr]

Function Add_TT(Group:String):Boolean;stdcall;
Begin
  Query.Close;
  Query.SQL.Text:='CREATE TABLE ' + Group + ' (ddate TEXT(255), 1par TEXT(255), 2par TEXT(255), 3par TEXT(255), 4par TEXT(255), 5par TEXT(255))';
  Query.ExecSQL;
End;

http://office.microsoft.com/ru-ru/ac...001231441.aspx почитал мелкософтовский мануал, но так и не понял ничего. При выполнение твердит о ошибке синтаксиса. Что тут может быть не так?

пысы
в названии темы сменил "с помощью" на "with" по причине

Требуемое поле title пропущено, или введено некорректное значение.
Не используйте в заголовке темы слова - подскажите помогите спасите плз срочно help памагите памогите помагите плиз задачка курсак помощи помощь хелп пожалуйста решите проблемма курсач срочно зделайте зделать и подобные.
Название темы должно отражать суть вопроса.

[hemn6vyr]

Решил. Через adox

Procedure CreateTable(group, db_dir: String); stdcall;
var
  DB: Catalog;
  Tables: Table;
  Columns: Column;
begin
  DB := CoCatalog.Create;
  DB.Set_ActiveConnection('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + db_dir);
  Tables := CoTable.Create;
  Tables.Name := Group;
  Tables.ParentCatalog := DB;
  DB.Tables.Append(Tables);
  Columns := CoColumn.Create;
  with Columns do
  begin
    ParentCatalog := DB;
    Name := 'id';
    type_ := adInteger;
    Properties['Autoincrement'].Value := True;
  end;
  Tables.Columns.Append(Columns, 0, 0);
  Tables.Columns.Append('ddate', adVarWChar, 255);
  Tables.Columns.Append('1lesson', adVarWChar, 255);
  Tables.Columns.Append('2lesson', adVarWChar, 255);
  Tables.Columns.Append('3lesson', adVarWChar, 255);
  Tables.Columns.Append('4lesson', adVarWChar, 255);
  Tables.Columns.Append('5lesson', adVarWChar, 255);
end;

[Stilet]

Что тут может быть не так?

Скорее всего не TEXT нужно писать а VARCHAR или CHAR.