Hi

I need to insert rows and to merge some rows





Code:
with grid   
   
   Do Until Rs.EOF
               .Rows = .Rows + 1
               .Row = .Rows - 1
               i = .Rows - 1
               
               
               
               .TextMatrix(i, 0) = rs!data1
               .TextMatrix(i, 1) = rs!data2
               .TextMatrix(i, 2) = rs!data3
               .TextMatrix(i, 3) = rs!data4
               .TextMatrix(i, 4) = rs!data5
               .TextMatrix(i, 5) = rs!data6
               .TextMatrix(i, 6) = Rs!GRUPOS
               
               
          
               
               Rs.MoveNext
               i = i + 1
               '****************
               j = j + 1
               '****************
        Loop
end with
rs!grupos is a string

when rs!grupos have only element like "01", grid will be with one row
but rs!grupos have more than a element "01;03;04;05;06;07" I would add other rows column zero, column one ...column five then
merge rows 0 to 5