Visual Basic - ciclos y recordset

Que tal amigos, una pregunta cual seria el codigo para ejecutar lo siguiente en VB 6 con ADO,

tabla1
hacer hasta que no sea fin tabla uno

tabla 2
select lista_campos from tabla1, tabla2 WHERE tabla2.campo=tabla1.campo

finalizar

y ademas como la consulta tiene muchos campos, hay que automatizar el codigo, para rellenar el listview y no poner columna, por columna..

Espero me puedan ayudar como se hace esto, links, código, bienvenido,

Gracias a todos, sinceramente..

Dim Rs as new ADODB.Recordset
Dim CnConexion as new ADODB.Connection
Dim strSQL as string
CnnConexion.Open "string de conexión"
strSQL ="select lista_campos from tabla1, tabla2 WHERE tabla2.campo=tabla1.campo"
Rs.Open strSQL, CnConexion
with listView
For i=0 to rs.fields.count
.column.add rs.fields(i).name
next i
end with
do while not rs.eof =true
listview.listitems.add rs.fields(0).value
loop

Etc, etc, el resto si lo completa usted, pero esa es la idea, es que ya me da pereza seguir escribiendo