Visual Basic - mas consultas ADO y SQL

que tal, desafortunadamente no he podido resolver mi duda acerca de las cosultas, espero esta vez tener poco mas suerte,

como se debe ejecutar consultas sql de esta forma
declaro dos recordset y un object connection (2 recordset uno por cada consulta),

rs1 new adodb
rs2 new adodb

sql_1= " tabla 1 , campos cve, nombre, etc"

while not rs1.EOF
recorrer la tabla y a todo los clientes que se encuentre en esta tabla ejecutar la siguiente consulta

select "tablas 2, tablas 3 tablas 4, campos 1_cve, 2_nombre, ect" where tabla2.cve = tabla1.cve"

rs.MoveNext
Wend

a ver si alguien me puede ayudar con este codigo o algunos link donde encuentre info. muchas gracias

manejo VB 6 y ADO

saludos..

mas o menos algo asi

Dim cn As ADODB.Connection
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset

Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider = Sqloledb;" _
& "Data Source = SERVIDOR;" _
& "Initial catalog = BASEDEDATOS;" _
& "User Id = Sa;"

Ssql = "Select Clave, nombre, ...... etc " ' Tu primera consulta
Set rs1 = New ADODB.Recordset
Set rs1 = cn.Execute(Ssql)

Do While not rs1.EOF
Ssql = "Select tabla2............ WHERE CAMPO = " & rs1!Campo
'Te fijaste como termina la consulta el campo de la otra consulta no va dentro de comillas, esto es en caso de que sea numerico y si fuera caracter seria asi
Ssql = "Select tabla2............ WHERE CAMPO = ' " & rs1!Campo & " ' "

'deje unos espacios entre las comillas dobles y las simplesa para que lo notes pero no van

Set rs2 = New ADODB.Recordset
Set rs2 = cn.Execute(Ssql)
........
.........

rs1.movenext
Loop


si no te funciona mandame por mail y lo checamos