Hola bezael.
Supongamos que  Adodc1 es el control data con los padres, Adodc2 el control data con los hijos.
[/Code]
Private Sub Adodc1_MoveComplete( _
ByVal adReason As ADODB.EventReasonEnum, _
ByVal pError As ADODB.Error, _
adStatus As ADODB.EventStatusEnum, _
ByVal pRecordset As ADODB.Recordset)
    On Error Resume Next
    Adodc2.RecordSource = "SELECT CodigoHijo,NombreHijo " _
    & "FROM HIJOS WHERE CodigoPadre=" _
    & pRecordset.Fields("CodigoPadre").Value
    Adodc2.Refresh
    DataGrid2.Refresh
End Sub
[/Code]
Suerte.