Delphi6怎样动态生成数据库文件，并添加表格

我程序里的一段：
var
  SCcount,i,j:integer;
  ListItem:TListItem;
  label xtid;
//  ,scid:integer;
  //SCname,AppPath,sqlstr,MYSCname:string;
//  yn:Boolean;
//  CreateAccess: OLEVariant;
begin
  try
    if bxLView.Items.Count=0 then exit;
{    yn:= InputQuery('数据库名对话框', '请输入生成的条件数据库名：        ', SCname);
    if yn then
    begin
      if SCname='' then exit;
      MYSCname:='统计条件库_'+SCname+'.mdb';
      if fileexists(MYSCname) then
      begin
        showmessage('文件名已存在！不好意思哈！！请重来！！！');
        exit;
      end;
      AppPath:=ExtractFileDir(Application.ExeName);
      CreateAccess:=CreateOleObject('ADOX.Catalog');
      CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+AppPath+'\'+'统计条件库_'+SCname+'.mdb');
      ADOQuery1.ConnectionString:='';
      ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='+AppPath+'\'+'统计条件库_'+SCname+'.mdb';
     // tablename:='表'+x+y+z;
      sqlstr:='Create Table ';
      sqlstr:=sqlstr+'统计条件表_'+SCname+' (ID int NOT NULL,Name varchar(50) NOT NULL,Type varchar(50) NULL,';
      sqlstr:=sqlstr+'length int NULL,Bvalue varchar(50) NULL';
      sqlstr:=sqlstr+',Nodetype varchar(50) NULL,Parent int NULL)';
      With ADOQuery1 Do
      Begin
        Close;
        SQl.Clear;
        SQl.add(sqlstr);
        ExecSQL;
      End;
      ADOTable2.ConnectionString:='';
      ADOTable2.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+AppPath+'\'+'统计条件库_'+SCname+'.mdb'+';Persist Security Info=False';
      ADOTable2.TableName:='统计条件表_'+SCname;}