Форумчане, сделал общий фильтр к которому подвязал все списки и флажки, но появилась проблема со флажками

Private Sub FilterForm()

Dim strFilter As String

strFilter = "True"

If Form.Recordset.EOF Then Me.FilterOn = False
Form.Dirty = False

If Me.Napr_no = True Then strFilter = strFilter & " and [kVili25kV] Like ""НЕТ"""


If Me.Napr_yes = True Then strFilter = strFilter & " and [kVili25kV] Like ""ДА"""

If Me.Napr_case = True Then strFilter = strFilter & " and [kVili25kV] Like ""null"""


If Me.Napr_all = True Then strFilter = strFilter & ""

Me.Filter = strFilter
Me.FilterOn = True



End Sub
Выдает ошибку и не хочет фильтровать. Получается мне нужно 4 позиции: ДА,НЕТ,пусто,все

http://www.sql.ru/forum/1207291/filr-flazhkami