怎么用ADO组件创建数据库及表

如何用ADO组件创建数据库及表
RT 知道的帮忙说下，最好有图，有代码，菜鸟求教谢谢了！！！

[解决办法]
好好看看sql，sql语句都可以干

create database
create table
[解决办法]
数据源
ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(ParamStr(0))+'\fz1.mdb;User ID=admin;Password=;'+'Persist Security Info=true;Jet OLEDB:Database Password=111';
ADOquery1.Connection:= ADOConnection1;
[解决办法]
sql.Text := 'create table tableName(FromUser char(30) not null,TargetUser char(30) not null)';
execsql;
[解决办法]

Delphi(Pascal) code

uses ComObj;    实现部分：    procedure TFormOffice.BitBtn1Click(Sender: TObject);    var      CreateAccess:OleVariant;    begin      CreateAccess:=CreateOleObject('ADOX.Catalog');      CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Aceco.mdb');    end;