wincc

各位好，以下是我写的删除SQL2005数据库数据的一点VBS脚本，我想请教一下怎么我脚本执行到Set objRst=CreateObject("ADODB.Recordset")这句后面，objRst.Open strSql,objCon这句就执行不了，我看不出来到底哪出错？请帮帮我看看到底脚本是哪出错？谢谢！
Sub OnClick(Byval Item)                                                                
Dim objcon
Dim strCon,strSql
Dim b
Dim objRst
Set objCon=CreateObject("ADODB.Connection")
strCon="DRIVER={SQL Server};SERVER=.\Wincc;DATABASE=Test"
objCon.ConnectionString=strCon
objCon.Open
strSql="Select*Form yy order by 编号desc "
Set objRst=CreateObject("ADODB.Recordset")
objRst.Open strSql,objCon
objRst.CursorLocation = adUseClient
        objRst.MoveFirst
        Dim temp1,temp2 
        temp1= objRst(0)
        objRst.MoveLast
        temp2 = objRst(0)
        temp1 = temp1- 20
        If temp1 <>temp2 Then
        Dim temps
        temps = "delete * from yy where 编号<" &temp1
       Set objRst = objCon.Execute(temps)
        End If
        Set objRst=Nothing
        Set objCon=Nothing
End Sub

问题补充：