Visual Basic - LISTVIEW me estresa

Kiero comparar 2 campos.... de 2 tablas diferentes, cuando ambos campos coincidan .... tengo q añadir los datos a un listview ...pero solo me añade el primero de los datos al listview ....los siguientes registros los muestra en blanco...

el codigo es este:

Do While Not rc2.EOF
If rc2!codigo = cuenta Then
Set unitem = ListView1.ListItems.Add(, , rc2!idtienda)
Do While Not rc1.EOF
If rc1!idtienda = rc2!idtienda Then
unitem.SubItems(1) = rc1!ip
unitem.SubItems(2) = Format(rc1!FAlta, "##/##/##")
If rc1!FBaja <> "" Then
unitem.SubItems(3) = Format(rc1!FBaja, "##/##/##")
Else
unitem.SubItems(3) = " "
End If
unitem.SubItems(4) = rc1!NombreTienda
unitem.SubItems(5) = rc1!direccion
unitem.SubItems(6) = rc1!poblacion
unitem.SubItems(7) = rc1!provincia
unitem.SubItems(8) = rc1!codpostal
unitem.SubItems(9) = rc1!telefono
unitem.SubItems(10) = rc1!NCajas
If rc1!descripcion <> "" Then
unitem.SubItems(11) = rc1!descripcion
Else
unitem.SubItems(11) = " "
End If
End If
rc1.MoveNext
Loop
End If
rc2.MoveNext
Loop

muxas graciass