Форумы HiProg.com - MS ACCESS, VBA, VB

ник: TOM
по кнопке выполняется поиск по полю NN

Private Sub Кнопка17_Click()
Dim nN_poisk As String
nN_poisk = InputBox("Введите номер", , 1, XPos:=2000, YPos:=500)
Me!NN.SetFocus
DoCmd.FindRecord nN_poisk
If Me!NN <> nN_poisk Then
MsgBox ("не найден")
End If
Me!kolvo.SetFocus
End Sub

Если запись найдена, указатель устанавливается на нее.
Как выдилить найденную строку в форме цветом?