打开SQL数据库：
Conn.Open "driver=SQL Server; server=sql服务器名字或地址; uid=用户ID; pwd=密码; 
database=数据库"

ACCESS：
a="DBQ="+server.mappath("XXX.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver 
(*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;
SafeTransactions=0;Threads=3;UserCommitSync=Yes;"

set conn=server.createobject("ADODB.CONNECTION")
conn.open a