While Not rs.EOF
        For j = 0 To registros
            If Not rs.EOF Then
                For i = 0 To 2
                    If Not rs.EOF Then
                        Nomes(j) = Nomes(j) & rs!TBREP_NOME
                        Enderecos(j) = Enderecos(j) & rs!TBREP_ENDER
                        Bairros(j) = Bairros(j) & rs!TBREP_BAIRRO
                        Cidades(j) = Cidades(j) & rs!TBCID_CIDADE & " / " & TBREP_UF
                        Ceps(j) = Ceps(j) & rs!TBREP_CEP
                        rs.MoveNext
                    End If
                Next
            End If
        Next
    Wend