Visual Basic - Controles DATA

BUenas tardes, tengo una incognita estoy trabajando con 5 data DAO en un mismo formulario y necesito mover a 2 ellos en conjunto de manera q cuando c mueva x ejemplo DATA 1 , se mueva tambien DATA 2 al mismo tiempo ya bien sea hacia adelante o hacia atras.... espero me puedan ayudar y gracias de antemano

Me funciona bien esto con controles Data (de los normales)

Private Sub Data1_Validate(Action As Integer, Save As Integer)
Select Case Action
Case 1
Label1 = "Inicio"
Case 2
Label1 = "Atras"
Case 3
Label1 = "Adelante"
Case 4
Label1 = "Final"
End Select
End Sub

En lugar de poner mensajes en Label1 pues le das Data2.MoveNext o el que se requiera

Para hacerlos en Data de ADO me funciona bien asi

Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Select Case adReason
Case 12
Label1 = "Inicio"
Case 14
Label1 = "Atras"
Case 13
Label1 = "Adelante"
Case 15
Label1 = "Final"
End Select
End Sub

E igual haces en lugar del mensaje un MoveNext o X