Declare Connection object line below

dim withevents ConDB as ADODB.Connection

so now u can see the default events that has been added to the list. In that events u can place...