关于ADO的事件引用（请大家帮忙！！！）

Question

声明该connection对象的时候，加上
withevents这样你就可以在上面的类下拉框里面找到该对象，选择后在右面的方法下拉框里面有各个事件具体可查msdn

Answer 1

各位高手，给个例子好不好。谢谢！
我不知道withevents应该放在哪？

Answer 2

Dim withevents AdoConn AS ADODB.Connection

Answer 3

Option Explicit
Dim WithEvents Cn As ADODB.ConnectionPrivate Sub Cn_CommitTransComplete(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)
'do Something
End SubPrivate Sub Form_Load()
Set Cn = New ADODB.Connection
Cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=angu;Data Source=sicsoft-k1phkl3;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=XHCHEN;Use Encryption for Data=False;Tag with column collation when possible=False"Cn.BeginTransCn.CommitTrans
End Sub