Her 2 tablonunda tum alan adlari ve alan ozellikleri ayniysa
Once recordset ile ile ilk tablo baglanir

Dim fld As Field
For each fld in rs.fileds
.... fld.name
Next fld
Bu kod ile tüm alanların adı alinabilr, gerisi bu alan adları sorguda kullanmak