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 & " ' "