getting quered data to merge cells

[x taol]

set db =opendatabase("aa.mdb")
set rs = db.openrecordset("select fld1,fld2 from tbl")
range("a1").copyfromrecordset rs

this code source is good applyed for non-merged cell.
but, merged cell is not.

I want to bring the data to merged cell once without loop.

for example,

range("a1:b1").mergedcell=true
range("c1:d1").mergedcell=true
range("e1:f1").mergedcell=true
set db =opendatabase("aa.mdb")
set rs = db.openrecordset("select fld1,fld2 from tbl")
range("a1").XXXXX rs

I want to get without loop(For Next or Do Loop).











*** Sent via Developersdex http://www.developersdex.com ***