Quiero que cursor se posicione en primer campo del registro encontrado según cuadro combinado

Tengo un formulario continuo llamado B_Estado basado en una consulta, que me presenta cuatro campos:

RowField

nombreempleado

cargo

Status

Como son muchos los registros cree un cuadro combinado dentro del mismo formulario que me lista "RowField" al cual le coloque un procedimiento de evento "Después de actualizar"

Private Sub Cuadro_combinado18_AfterUpdate()

' Buscar el registro que coincida con el control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[RowField] = '" & Me![Cuadro combinado18] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Ahora mi pregunta es: Quiero que al seleccionar el dato de mi cuadro combinado o lista, el cursor se posicione en el primer campo de mi registro encontrado.. Y este al mismo tiempo cambie de color...Espero puedan ayudarme..