Como fazer pro meu listview aceitar campos duplicados tenho um Codigo e Codigo do Imove, , o campo codigo é unico , mas pode conter varios codigos dos imoveis tipo
Codigo 1 (esse codigo significa o umProprietario)
Codigo do Imovel 1( significa qu eé um Imovel)
mas ele pode ter mais de 1 imovel , entaun
Codigo 1
Codigo do Imovel 2
meu codigo de pesuisa é esse e num querendo abusar mas como ficaria esse codigo em ADO? , valew pessoal

Dim dado(6) As String, ConsultaSQL As String, MontaString As Boolean
    Dim mPrimeiro As Boolean
    Dim i As Integer
     ConsultaSQL = ""
    ConsultaSQL = "SELECT * FROM Tbl_Apartamentos WHERE "
    MontaString = True
    mPrimeiro = True
    dado(1) = ""
    dado(2) = ""
    dado(3) = ""
    dado(4) = ""
    dado(5) = ""
    If Len(txtCodigo.Text) <> 0 Then
        dado(1) = "[CODIGO] LIKE '" & txtCodigo.Text & "*'"
    End If
       If Len(txtcodimo.Text) <> 0 Then
        dado(2) = "[CodigoImo] LIKE '" & txtcodimo.Text & "*'"
    End If
    If Len(txtdescricao.Text) <> 0 Then
        dado(3) = "[Descricao] LIKE '" & txtdescricao.Text & "*'"
    End If
    
    If Len(txtnome.Text) <> 0 Then
        dado(4) = "[nome] LIKE '" & txtnome.Text & "*'"
    End If
    
     If Len(txtrua.Text) <> 0 Then
        dado(5) = "[Rua] LIKE '" & txtrua.Text & "*'"
    End If
        
    If Len(txtbairro.Text) <> 0 Then
        dado(6) = "[Bairro] LIKE '" & txtbairro.Text & "*'"
    End If
    
      
    For i = 1 To 6
        If Len(dado(i)) <> 0 Then
            If mPrimeiro Then
                ConsultaSQL = ConsultaSQL & dado(i)
                mPrimeiro = False
            Else
                ConsultaSQL = ConsultaSQL & " And " & dado(i)
            End If
        End If
    Next
        
    Set dbCadastro = OpenDatabase(App.Path & "Bdimobiliaria.mdb", False, False)
    Set TabelaConsulta = dbCadastro.OpenRecordset(ConsultaSQL, dbOpenSnapshot)
    
    CarregaCliente