Como extraer información de una tabla a un formulario

¡Hola! Buen día, la duda es la siguiente yo tengo un campo que se llama rfc la idea del proyecto es que al momento que yo ingrese el rfc me debe dar el nombre de la persona así como también 5 campos mas que se llaman ent_fed,ct_clasi, ct_id, ct_dig yo coloque el siguiente código en el evento después de actualizar y si me funciona pero solo me arroja el nombre es que no se como añadir los demás campos al código y que también me los arroje.

Private Sub rfc_AfterUpdate()
Dim rfc As String
Dim empleado As String
rfc = Nz(Me.rfc.Value, "")
If rfc = "" Then Exit Sub
empleado = DLookup("[empleado]", "Cat_Empleado", "[rfc]='" & rfc & "'")
Me.nom_emp.Value = empleado
End Sub

espero me puedan ayudar gracias .