rst!valor = ccur(.TextMatrix(i,4))

      rst.update

next i

with msflexgrid

  for i = 1 to .rows -2

       sql = "insert into tbl_pedidos "

       sql = sql & " (codigoped,codigo_cli,cod_pro,produto,qtd,valor)"

       sql = sql & " Values (txt_codigo_ped,txt_codigo_cli,.TextMatrix(i,1), .TextMatrix  (i,2),.TextMatrix(i,3),.TextMatrix(i,4))"

 

   conexao.execute sql

 

end with

qualquer coisa me contato no msn