'引用ado
    dim cn as ado.connection
    set cn=new ado.connection    cn.ConnectionTimeout = 25
    cn.Provider = "sqloledb"
    cn.Properties("Data Source").Value = sServerName
    cn.Properties("Initial Catalog").Value = sDatabaseName
    cn.Properties("User ID").Value = sUserName
    cn.Properties("Password").Value = sPassword    cn.open    '然后再定义recordset
    dim rs as adodb.recordeset
    set rs=new adodb.recordeset
    
    rs.open yourSql,cn,1,3  '定义你的sql语句