Как я могу заставить свои фильтры работать в Access?

Question

Я пытаюсь отфильтровать формы с помощью этого кода, который раньше работал в Access 2000 и теперь не работает. Я унаследовал действительно старую базу данных и постепенно ее перестраиваю, но я пытаюсь заставить старую работать, пока я заканчиваю sh эту. Это код VBA

Public Function SpecialLoadAndPopulateTheFilterForm(strBaseTable As String)
Dim strFilterFormName As String
Dim frm As Form
strFilterFormName = "frm" & strBaseTable & "Filter"
DoCmd.OpenForm strFilterFormName
Set frm = Forms(strFilterFormName)
frm!optnOpen = CBool(Nz(INIGetSettingString(strBaseTable & " Filter", "Open", gcnstStrSRCiniPath, "True"), "True"))
frm!optnClose = CBool(Nz(INIGetSettingString(strBaseTable & " Filter", "Close", gcnstStrSRCiniPath, "True"), "True"))
frm!optnHold = CBool(Nz(INIGetSettingString(strBaseTable & " Filter", "Hold", gcnstStrSRCiniPath, "False"), "False"))
If strBaseTable = "Employees" Then
    Dim bolValue As Boolean
    Dim ctlList As Control
    Dim intRow As Integer
    Set ctlList = frm!lstEmpTypeFilter
    For intRow = 0 To ctlList.ListCount - 1
        bolValue = CBool(Nz(INIGetSettingString(strBaseTable & " Types Filter", Trim(CStr(ctlList.Column(1, intRow))), _
            gcnstStrSRCiniPath, "False"), "False"))
        ctlList.Selected(intRow) = bolValue
    Next intRow
End If
End Function