Private Sub gAdodc_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
MsgBox pRecordset.Fields("name")
End Sub
Private Sub Form_Load()
Set gAdodc = Adodc1
End Sub