Felipe Porto

Oi, Eu estou tendo um problema no VB6 quando eu faço insert de mais de um campo de grid Explicando melhor... Quando eu faço insert de uma grid com 1 campo ele funciona perfeitamente Porém se faço insert com 2 ou mais campos ele faz o seguinte faz insert no campo 1, quando vai fazer no campo 2 ele faz o 1 e o 2, e quando fazer o campo 3 ele faz o 1, 2 e o 3 o que seria: 1 2 3 fica 1 1 2 1 2 3 Não sei se consegui explicar bem o problema strSQL = "" strSQL = strSQL & " declare @fone int" For j = 1 To gridtel.Rows - 1 strSQL = strSQL & " select @fone = IsNull(MAX(COD_FONE_CLIENTE), 0) + 1 from tblCLIENTE_FONE" strSQL = strSQL & " insert into tblCLIENTE_FONE (cod_fone_cliente, cod_tipo_fone, cod_cliente, fone)" strSQL = strSQL & " values (@fone, '" & gridtel.TextMatrix(j, 3) & "', '" & cliente & "', '" & gridtel.TextMatrix(j, 1) & "')" Call Executa_Comando(strSQL) Next j bom esse é o cód estou meio perdido Obrigado