ник: snipe
там у поля есть события получение фокуса и потеря фокуса
свойство поля которое надо обрабатывать (задавать значения цвета) BackColor
про число цвета - тут не так давно Час целую программку написал - пошухайте
=============
добавлено
пример
Private Sub ПолеСоСписком36_GotFocus()
Me!ПолеСоСписком36.BackColor = RGB(255, 0, 0)' красное поле
End Sub
Private Sub ПолеСоСписком36_LostFocus()
Me!ПолеСоСписком36.BackColor = RGB(255, 255, 255) 'белое поле
End Sub