Dim jtzz As WinForm.ComboBox = e.Form.Controls("住址")
Dim zh As WinForm.ComboBox = e.Form.Controls("账号")
Tables("农户表").filter="家庭住址=\'" & jtzz.text & "\' And  银行帐号=\'" & zh.text & "\'"

Dim Filter As String
With e.Form.Controls("住址")
    If .Value IsNot Nothing Then
        Filter = "家庭住址 = \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("账号")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "银行帐号 = \'" & .Value & "\'"
    End If
End With
If Filter > "" Then
    Tables("农户表").Filter = Filter
End If

以上代码在住址的下拉筛选中怎么有重复值