help!!!! reporte de dos tablas

[zink]

Estoy tratando de hacer un reporte de dos tablas, por ejemplo tengo este código para
hacer el reporte de una tabla:

TBL.Open "s1" ,DB

While NOT TBL.EOF
Response.Write("<b>Nombre : </b>" & TBL("nom") & "<br>")
Response.Write("<b>Dirección :</b> " & TBL("dir") & "<br>")
Response.Write("<b>Teléfono : </b>" & TBL("tel") & "<br>")
TBL.MoveNext
Wend

y otro igual pero para otra tabla:

TBL.Open "s2" ,DB

While NOT TBL.EOF
Response.Write("<b>Pedido : </b>" & TBL("ped") & "<br>")
Response.Write("<b>Producto :</b> " & TBL("pro") & "<br>")
Response.Write("<b>Total : </b>" & TBL("tot") & "<br>")
TBL.MoveNext
Wend

Lo que quiero hacer es que los dos archivos corran en uno solo, es decir que el reporte me
de los datos de nombre, dir, tel, pedido, producto y total en un solo reporte.

de antemano muchas gracias y espero que a alguien le interese ayudarme.

Si preguntas, pasaras por ingenuo 5 minutos, si no preguntas ....... serás ingenuo toda tu vida