求救高手，如何用ADO通过代码创建一个表？

Question

sqlstr:='Create Table ';
      sqlstr:=sqlstr+你的表名+' (ID int NOT NULL,Name varchar(50) NOT NULL,Type varchar(50) NULL）';      With ADOsql Do
      Begin
        Close;
        SQl.Clear;
        SQl.add(sqlstr);
        ExecSQL;
      End;

Answer 1

Sql语句：
Create Table ................
或
Adox

Answer 2

ADOQuery.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add( 'Create Table TABLE_NAME' );
ADOQuery.SQL.Add( '( UserName VarChar( 8 ),' );
ADOQuery.SQL.Add( ' Age Integer,' );
ADOQuery.SQL.Add( ' Birthday Date )' );
Try
   ADOQuery.ExecSQL;
Except
      Application.MessageBox( '创建表TABLE_NAME失败！', '错误', MB_OK + MB_ICONSTOP );
End;