sCon="Provider=MSDASQL;DSN=300tsc;UID=sa;PWD=;"
Setconn = CreateObject("ADODB.Connection")
    conn.ConnectionString= sCon
    conn.CursorLocation = 3
    conn.Open
SetoRs = CreateObject("ADODB.Recordset")
Set oCom =CreateObject("ADODB.Command")
Set oCom.ActiveConnection =conn
    oCom.CommandType= 1

看起来像是ado连接数据库的，代码有问题