asp操纵access数据库的增加新表

使用asp程序能不能在access数据库中动态的建立表
如果能的话，请给出实现代码（关键代码即可）
---------------------------------------------------------------

try something like

conn.Execute "CREATE TABLE MyTable (FirstName TEXT, LastName TEXT);"

---------------------------------------------------------------

set con2 = Server.CreateObject("ADODB.Connection")

ConnStr="DBQ=" & Server.Mappath("../work/mails1.asa") & ";DRIVER={Microsoft Access Driver (*.mdb)};"
con2.open(ConnStr)'/建立ADO连接

sql="create table recived"
sql=sql+rs("用户名")+"(iDateTime varchar(50),iaddfile varchar(150), ifrom varchar(50),iinfo memo,ilevel char(1),cent varchar(50),iread char(1))"

con2.Execute(sql)'/建立recived表
con2.close
set con2=nothing

---------------------------------------------------------------

1   
2'首先建立一个数据库文件   
3set conn=server.createobject("adox.catalog")   
4conn.create "provider=microsoft.jet.oledb.4.0;" & "data source=" & server.mappath("数据库的名称.mdb")   

 1   
 2'向该数据库中建立相应表格   
 3set rs=server.createobject("adox.table")   
 4'该表格名称   
 5rs.name="adminis1"   
 6'该表格字段(字段类型见相关附录)   
 7rs.columns.append "liuyan",203   
 8rs.columns.append "dt",7   
 9conn.tables.append rs   
10set rs=nothing   

至此，表格建立完毕。希望能对您有帮助。
字段类型附录
203 备注
7 日期/时间
128 二进制
11 布尔
6 货币
133 日期
134 时间
135 日期时间
5 双精度
4 单精度
204 二进制
202 字符串