Encontré la solución como hace 2 semanas, pero lo posteo ahora (más vale tarde que nunca)
Todo en una simple línea de código, aquí está:
Código:
Private Sub DtaComAgNiñosArea_Click(Area As Integer)
Me.lblAgNiñosIdArea.Caption = Me.DtaComAgNiñosArea.BoundText
End Sub
tanto rollo y esta es la solución.
Lo único es que cambie a label's porque consumen menos memoria, haciendo el programa más rápido.
Gracias a quienes colaboraron.
PD: Cuando tenga tiempo el administrador, que cierre el tema.
ATENCIÓN: En vez de hacer la conexión con Recorset's, utilice un control ADO.