可以使用对象完成你的要求具体如下:
定义一个全变量其值为正常的创建表对象的SQL语句,而后用命令对象的EXECUTENOQUERY方法既可以创建你所需要的表格,代码如下:
dim  sql as string  ="CREATE TABBLAE XX " &  "(col1 int  ,col2 char(4) not nul  default '147' , constraint x1 primary key (col1) not for replication )"  
dim cn as system.dadta.sqlconnection("连接串信息")
dim cmd as system.data.sqlclient.sqlcommand(sql,cn)
cn.open
cmd.executenonquery
cmd.dispose
cmd.close
cmd=nothing
cn=nothing