可以看一下BOOK ONLINE里的帮助信息，具体的不多说了，：）

请看代码：

<%
建立连接
Dim conn
Set conn = Server.CreateObject(ADODB.Connection)
conn.Open DSN=blah

Dim strSQL
strSQL = CREATE TABLE test (name varchar(50), age int)
conn.Execute strSQL
%>

希望能对你有所帮助