asp如何在线修改数据库表？

如何在线修改表？

具体代码如下：

<％
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "DBQ="& Server.MapPath("chunfeng.mdb") &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;" 
sql = "CREATE TABLE 学员1 (姓名 TEXT(10), 年龄 INT)" 
Set a = conn1.Execute(sql)
Response.Write "恭喜,创建表成功!<p>"
sql = "ALTER TABLE 学员1 ADD COLUMN 性别 TEXT(2)" 
Set a = conn1.Execute(sql)
Response.Write "恭喜,修改表成功!<p>"
conn1.Close
％>