Поиск в таблице по нескольким полям и выделение поля

Доброго времени суток всем! Хотелось бы организовать поиск в таблице по двум полям и выделение найденного поля (не фильтрация по этому полю!).
Допустим есть подчиненная форма:
Forms!FrmPlanning!SubFrmGrafik
Поля в подчиненной форме: Код, КодНоменклатура, Номенклатура, Дата, Колво
В главной форме Список и Календарь.
При выборе значения из Списка и Календаря, по нажатию кнопки, в подчиненой форме должна выделиться та запись которая соответствует выбранным данным. Поиск в подчиненой форме из Списка по полю КодНоменклатура, из Календаря по полю Дата. Может кто подсказать код?

  Dim s As String, RS As Recordset
  If Not IsNull([Список]) Then s = "(КодНоменклатура=" & [Список] & ") And "
  If Not IsNull([Календарь]) Then s = s & "(Дата=#" & Format([Календарь], "mm\/dd\/yyyy") & "#) And "
  If Len(s) > 0 Then
    s = Left$(s, Len(s) - 5)
    Set RS = Forms!FrmPlanning!SubFrmGrafik.Form.RecordsetClone
    RS.FindFirst s
    If RS.NoMatch Then
      s = ""
    Else
      Forms!FrmPlanning!SubFrmGrafik.Form.Bookmark = RS.Bookmark
    End If
    RS.Close: Set RS = Nothing
  End If
  If Len(s) = 0 Then MsgBox "Ничего не найдено"

Поиск можно выполнять как по двум, так и по одному полю

Большущее тебе спасибо BoNiM.