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.