使用cnM.Execute("insert.....")语句的问题

[yxh100]

是用此语句不像rs=cnM.Execute("select ....."),通过rs可以判断，cnM.Execute("insert.....")如何判断插入是否成功？

谢谢！！

[AndyFunction]

cnM.RowsAffected<>0

[Camus_Li]

dim count as long

cnM.Execute("insert.....",count,..)
if count>0 then 'ok

[Camus_Li]

Public Function ExecuteNoQuery() As Boolean
On Error GoTo Exception
With mADODBCommand
.Prepared = True
.Execute
End With
ExecuteNoQuery = True
Exit Function
Exception:
If Err.Number = -2147217887 Or Err.Number = -2147217873 Then
MsgBox "数据操作出现重复!请再次核实!", vbCritical, "设备管理"
Else
ShowError Err, "ExecuteNoQuery()"
End If
ExecuteNoQuery = False
End Function