ACCESS创建表，添加字段的问题，本人急用，无论为什么方法能运行出结果就行！(110分)

制作数据源为D:/下的一个ACCESS文件，该文件为空，无任何表
先放置四个控件，一个DBgrid，一个DataSource，一个Table1，一个按扭，
设置DBgrid的DataSource的属性为DataSource1，
设置DataSource1的dataset属性为table1，
设置table1的databasename属性为MS Access Database
（因为表是空的所以tablename和active项没有定义！）
现在想用按扭触发程序，在ACCESS文件中新建表，并创建相应的字段！


procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin

With Database1 do
begin
DriverName := 'MSACCESS';
DatabaseName := 'Mydb';
Params.Clear;
Params.Add('DATABASE NAME=c:/db1.MDB');
Params.Add('USER NAME=');
Params.Add('PASSWORD=');
LoginPrompt := False;
end;


With Query1 do
begin
Close;
DatabaseName := 'Mydb';
SQL.Clear;
SQL.Add('create table 123'); //邮箱
SQL.Add('(a text,');
SQL.Add(' b text,');
SQL.Add(' c text,');
SQL.Add(' d text)');
ExecSQL;
end;

for i := 0 to Listbox1.Items.Count-1 do
With Query1 do
begin
SQL.Clear;
SQL.Add('insert into 123'); //data为表名
SQL.Add('(a,b,c,d)'); //id为自增字段,插入时不管它
SQL.Add('Values PA,B,C,D)');
ParamByName('PA').AsString:=ListBox1.Items.Strings;
ParamByName('PB').AsString:=ListBox2.Items.Strings;
ParamByName('PC').AsString:=ListBox3.Items.Strings;
ParamByName('PD').AsString:=ListBox4.Items.Strings;
ExecSQL;
end;
end;

这段程序是我从以前这个论坛发过的帖子上抄下来的如果我用它作为我的按扭的触发程序
应该改什么？？？



我只不过要做一个可以实现班级录入，课程录入，学生录入，成绩录入，班级课程设置
的简单程序罢了，希望大家帮个忙，程序运行成功马上付分，谢谢！
最好那位高手能发给我一个例称，我对设置哪些属性真的很头痛哦！看这例子做应该简单
些吧！

在ACCESS数据库建表,使用SQL语句或者ADOX都行.
你查一下SQL建表的贴子吧.
ADOX的帮助你看ADO的帮助中的ADOX中的对象.

请回帖的朋友尽量写的详细点，我对数据库方面一无所知！