Public Event conExecuteCompleteEvt(.. evtl. Parameter)
 
Private WithEvents con As ADODB.Connection
 
Private Sub con_ExecuteComplete(ByVal RecordsAffected As Long, ByVal pError As _
  ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pCommand As _
  ADODB.Command, ByVal pRecordset As ADODB.Recordset, ByVal pConnection As _
  ADODB.Connection)
    RaiseEvent conExecuteCompleteEvt
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1