....
Select Case Me.cmbFiltr.ListIndex
Case  0  'область
strSQLFiltr = "SELECT * FROM FIO WHERE AdrOblast = '"
    If iSelCheck =  1  Then
        For iCheck =  1  To iAllCheck
          If Me.lstFiltr.Nodes(iCheck).Checked Then
                strSQLFiltr = strSQLFiltr & Me.lstFiltr.Nodes(iCheck).Text
          End If
        Next
    Else
    bolCheck = False
        For iCheck =  1  To iAllCheck
          If Me.lstFiltr.Nodes(iCheck).Checked Then
            If bolCheck = False Then
                strSQLFiltr = strSQLFiltr & Me.lstFiltr.Nodes(iCheck).Text
                bolCheck = True
            Else
                strSQLFiltr = strSQLFiltr & "' OR AdrOblast = '" & Me.lstFiltr.Nodes(iCheck).Text
            End If
          End If
        Next iCheck
    End If
    dtaTemp.RecordSource = strSQLFiltr & "' ORDER BY Fam, Im, Ot, God"
    dtaTemp.Refresh
    If Not (Me.dtaTemp.Recordset.EOF) And Not (Me.dtaTemp.Recordset.BOF) Then
        Me.dtaTemp.Recordset.MoveLast
        iCountFiltrRec = Me.dtaTemp.Recordset.RecordCount
        bolFiltr = True
    Else
        bolFiltr = False
    End If
Case  1 
....
If bolFiltr = True Then
    'устанавливаем фильтр
    frmMain.optFiltr.Value =  1 
    frmMain.optFiltr.Caption = "СНЯТЬ ФИЛЬТР"
    frmMain.optFiltr.ForeColor = &HFF&
        frmMain.dtaInfo.RecordSource = dtaTemp.RecordSource
        frmMain.dtaInfo.Refresh
        frmMain.dbgFIO.Refresh
        frmMain.stbInfo.Panels( 3 ).Text = iCountFiltrRec 'Информация о количестве записей
        'End With
    'MsgBox "Найдено " & iCountFiltrRec & " записей удовлетворяющих условию.", vbOKOnly + vbInformation, "Фильтр установлен!"
    Unload Me
Else
    MsgBox "Записей удовлетворяющих условию не найдено.", vbOKOnly + vbCritical, "Внимание!"
    frmMain.optFiltr.ForeColor = &H0&
    frmMain.optFiltr.Value =  0 
    frmMain.optFiltr.Caption = "УСТАНОВИТЬ ФИЛЬТР"
    'frmMain.mnuFile.Checked = False
    Unload Me
End If
...