rs.delete求救嗎，逐個刪除不了！该怎么处理

rs.delete求救嗎，逐個刪除不了！
Dim   cn   As   ADODB.Connection
        Dim   rs   As   ADODB.Recordset

        On   Error   GoTo   errHandle
       
        Set   cn   =   New   ADODB.Connection
        cn.ConnectionString   =   gConnect
        cn.Open
       
        cn.BeginTrans

        Set   rs   =   New   ADODB.Recordset
        Set   rs.ActiveConnection   =   cn
        rs.CursorType   =   adOpenStatic
        rs.CursorLocation   =   adUseClient
        rs.LockType   =   adLockOptimistic
        rs.Source   =   "Select   *   From   sbjy   Where   序號   = "   &   CurID   &   " "
        rs.Open

        If   Not   rs.EOF   Then     '刪除
                        rs.Delete
        End   If
        cn.CommitTrans
        RefreshData   =   True

        rs.Close
        cn.Close
        Set   rs   =   Nothing
        Set   cn   =   Nothing
        Exit   Function
errHandle:
        cn.RollbackTrans

        Set   rs   =   Nothing
        Set   cn   =   Nothing

        RefreshData   =   False
        MsgBox   "錯誤號:   "   &   Err.Number   &   Chr(10)   +   Chr(13)   &   "錯誤原因:   "   &   _
                                          Err.Description,   vbOKOnly   +   vbExclamation,   Err.Source


------解决方案--------------------
cn.Execute "delete from sbjy where 序號 = ' " & CurID & " ' "