COMO SIMPLIFICAR CONSULTA MUITO COMPLEXA?

    Sub Filtro()

        Dim con As OleDbConnection
        Dim cmd As OleDbCommand
        Dim r As OleDbDataReader
        Dim Bairros As String = String.Empty
        Dim lCodigos As String = String.Empty
        Dim Status As String = String.Empty

        If Me.lstBairros.Items.Count > 0 Then
            For N As Integer = 0 To Me.lstBairros.Items.Count - 1
                If Bairros = String.Empty Then
                    Bairros = [Ô] And (Bairro=[ô][Ô] & Me.lstBairros.Items(N).Text & [Ô][ô][Ô]
                Else
                    Bairros = Bairros & [Ô] Or Bairro = [ô][Ô] & Me.lstBairros.Items(N).Text & [Ô][ô][Ô]
                End If
            Next
            Bairros = Bairros & [Ô])[Ô]
        End If

        If Me.lstComodos.Items.Count > 0 Then
            lCodigos = listaComodos()
        Else
            lCodigos = [Ô](IsNull(CodImovel) Or CodImovel LIKE [ô]%[Ô] & Me.CodImovel.Text & [Ô]%[ô])[Ô]
        End If

        If Me.cboStatus.Text <> [Ô]TODOS[Ô] Then
            Status = [Ô] And (IsNull(Status) Or Status = [ô][Ô] & Me.cboStatus.Text & [Ô][ô])[Ô]
        End If

        Dim sql As String = [Ô]SELECT * FROM imoveis[Ô]
        sql = sql & [Ô] WHERE [Ô] & lCodigos
        sql = sql & [Ô] And (IsNull(NomeVendedor) Or NomeVendedor LIKE [ô]%[Ô] & Me.NomeVendedor.Text & [Ô]%[ô])[Ô]
        sql = sql & [Ô] And (IsNull(NomeCadastrador) Or NomeCadastrador LIKE [ô]%[Ô] & Me.NomeCadastrador.Text & [Ô]%[ô])[Ô]
        sql = sql & [Ô] And (IsNull(Tipo) Or Tipo LIKE [ô]%[Ô] & Me.TipoImovel.Text & [Ô]%[ô])[Ô]
        sql = sql & [Ô] And (IsNull(Area) Or (Area >=[Ô] & Me.AreaInicial.Text & [Ô] And Area <=[Ô] & Me.AreaFinal.Text & [Ô]))[Ô]
        sql = sql & [Ô] And (IsNull(Valor) Or (Valor >=[Ô] & Me.ValorInicial.Text & [Ô] And Valor <=[Ô] & Me.ValorFinal.Text & [Ô]))[Ô]
        sql = sql & [Ô] And (IsNull(CEP) Or CEP LIKE [ô]%[Ô] & Me.CEP.Text & [Ô]%[ô])[Ô]
        sql = sql & [Ô] And (IsNull(Cidade) Or Cidade LIKE [ô]%[Ô] & Me.Cidade.Text & [Ô]%[ô])[Ô]
        sql = sql & [Ô] And (IsNull(Estado) Or Estado LIKE [ô]%[Ô] & Me.UF.Text & [Ô]%[ô])[Ô]
        sql = sql & [Ô] And (IsNull(Endereco) Or Endereco LIKE [ô]%[Ô] & Me.Logradouro.Text & [Ô]%[ô])[Ô]
        sql = sql & [Ô] And (IsNull(Quadra) Or Quadra LIKE [ô]%[Ô] & Me.Quadra.Text & [Ô]%[ô])[Ô]
        sql = sql & [Ô] And (IsNull(Lote) Or Lote LIKE [ô]%[Ô] & Me.Lote.Text & [Ô]%[ô])[Ô]
        sql = sql & [Ô] And (IsNull(Numero) Or Numero LIKE [ô]%[Ô] & Me.Numero.Text & [Ô]%[ô])[Ô]
        sql = sql & [Ô] And (IsNull(Bairro) Or Bairro LIKE [ô]%[Ô] & Me.Bairro.Text & [Ô]%[ô])[Ô]
        sql = sql & [Ô] And (IsNull(Obs) Or Obs LIKE [ô]%[Ô] & Me.Obs.Text & [Ô]%[ô])[Ô]
        sql = sql & Bairros
        sql = sql & Status
        sql = sql & [Ô] ORDER BY CodImovel Asc[Ô]

        con = New OleDbConnection([Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=X:\database\database.accdb;Jet OLEDB:Database Password=senhadobanco[Ô])

        Try

                        con.Open()
                        cmd = New OleDbCommand(sql, con)
                        r = cmd.ExecuteReader()
                        Me.lstFiltro.Items.Clear()

                        Do While r.Read
                            Dim item0 As ListViewItem = New ListViewItem(New String() {[Ô][Ô] & r([Ô]CodImovel[Ô]) & [Ô][Ô], [Ô][Ô] & r([Ô]NomeVendedor[Ô]) & [Ô][Ô], [Ô][Ô] & r([Ô]TelefoneVendedor[Ô]) & [Ô][Ô], [Ô][Ô] & r([Ô]NomeCadastrador[Ô]) & [Ô][Ô], [Ô][Ô] & r([Ô]TelefoneCadastrador[Ô]) & [Ô][Ô], [Ô][Ô] & r([Ô]Tipo[Ô]) & [Ô][Ô], [Ô][Ô] & r([Ô]Area[Ô]) & [Ô][Ô], [Ô][Ô] & Format(r([Ô]Valor[Ô]), [Ô]Currency[Ô]) & [Ô][Ô], [Ô][Ô] & r([Ô]CEP[Ô]) & [Ô][Ô], [Ô][Ô] & r([Ô]Cidade[Ô]) & [Ô][Ô], [Ô][Ô] & r([Ô]Estado[Ô]) & [Ô][Ô], [Ô][Ô] & r([Ô]Endereco[Ô]) & [Ô][Ô], [Ô][Ô] & r([Ô]Quadra[Ô]) & [Ô][Ô], [Ô][Ô] & r([Ô]Lote[Ô]) & [Ô][Ô], [Ô][Ô] & r([Ô]Numero[Ô]) & [Ô][Ô], [Ô][Ô] & r([Ô]Bloco[Ô]) & [Ô][Ô], [Ô][Ô] & r([Ô]Apto[Ô]) & [Ô][Ô], [Ô][Ô] & r([Ô]Bairro[Ô]) & [Ô][Ô], [Ô][Ô] & r([Ô]Obs[Ô]) & [Ô][Ô], [Ô][Ô] & r([Ô]ID[Ô]) & [Ô][Ô], [Ô][Ô] & r([Ô]Status[Ô]) & [Ô][Ô]}, 0)
                            lstFiltro.Items.AddRange(New ListViewItem() {item0})
                        Loop

                        con.Close()

        Catch ex As OleDbException
            If ex.ErrorCode <> -2147217900 Then
                MsgBox(ex.Message, MsgBoxStyle.Critical, [Ô]Erro Oledb[Ô] & ex.ErrorCode)
            End If
        Catch ex As Exception
            If Err.Number <> 13 Then
                MsgBox(ex.Message & vbNewLine & vbNewLine & Err.Number, MsgBoxStyle.Critical, [Ô]Erro geral[Ô])
            End If
        End Try

    End Sub

    Function listaComodos() As String

        listaComodos = String.Empty

        If Me.lstComodos.Items.Count > 0 Then

            Dim con As OleDbConnection
            Dim cmd As OleDbCommand
            Dim cmdb As OleDbCommand
            Dim r As OleDbDataReader
            Dim rd As OleDbDataReader
            Dim sql As String = [Ô]SELECT DISTINCT CodImovel FROM comodos[Ô]
            Dim lDep As String = String.Empty
            Dim Quantidade As Integer = 0

            con = New OleDbConnection([Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=X:\database\database.accdb;Jet OLEDB:Database Password=senhadobanco[Ô])

            Try
                con.Open()
                cmd = New OleDbCommand(sql, con)
                r = cmd.ExecuteReader()

                Do While r.Read
                    Quantidade = 0
                    lDep = [Ô]SELECT * FROM comodos WHERE CodImovel=[Ô] & r([Ô]CodImovel[Ô])
                    cmdb = New OleDbCommand(lDep, con)
                    rd = cmdb.ExecuteReader()
                    Do While rd.Read()
                        For N As Integer = 0 To Me.lstComodos.Items.Count - 1
                            If rd([Ô]Quantidade[Ô]) = Me.lstComodos.Items(N).SubItems(0).Text And rd([Ô]Tipo[Ô]) = Me.lstComodos.Items(N).SubItems(1).Text Then
                                Quantidade = Quantidade + 1
                            End If
                        Next
                    Loop
                    If Quantidade >= Me.lstComodos.Items.Count Then
                        If listaComodos = String.Empty Then
                            listaComodos = [Ô](CodImovel = [Ô] & r([Ô]CodImovel[Ô])
                        Else
                            listaComodos = listaComodos & [Ô] Or CodImovel = [Ô] & r([Ô]CodImovel[Ô])
                        End If
                    End If
                Loop

                If listaComodos <> String.Empty Then
                    listaComodos = listaComodos & [Ô])[Ô]
                Else
                    listaComodos = [Ô](CodImovel = 0)[Ô]
                End If

                con.Close()

            Catch ex As OleDbException
                MsgBox(ex.Message, MsgBoxStyle.Critical, [Ô]Erro Oledb[Ô])
            Catch ex As Exception
                If Err.Number <> 13 Then
                    MsgBox(ex.Message & vbNewLine & vbNewLine & Err.Number, MsgBoxStyle.Critical, [Ô]Erro geral[Ô])
                End If
            End Try

        End If

    End Function