可以看一下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
%

希望能对你有所帮助