Caro amigos, consegui pegar as informações de uma matriz, com um loop fazer a inserção, mas aconteceu algo incrivel ....

 

Ele grava sempre na mesma linha, sobrepondo o outro, tem como controlar as linhas para que cada vez que fazer o loop, ele gravar na linha debaixo..

 

Obrigado.

 

Meu codigo esta assim:

 

Private Sub Command4_Click()
    On Error GoTo Trata_Erro
   
    For Indice = 0 To Indice - 1
        SQL = "Insert Into Banco_teste (Cliente, Numero, "
        SQL = SQL & "CEP, Preco_ESedex, Preco_Sedex) "
        SQL = SQL & "Values "
        SQL = SQL & "('" & Matriz_Frete(Indice).Cliente & " ', "
        SQL = SQL & "'" & Matriz_Frete(Indice).Numero & "', "
        SQL = SQL & "'" & Matriz_Frete(Indice).CEP & "', "
        SQL = SQL & "'" & Matriz_Frete(Indice).Preco_ESedex & "', "
        SQL = SQL & "'" & Matriz_Frete(Indice).Preco_Sedex & "')"
        'Row = Row + 1
        'Indice = Indice + 1
    Next
    CN.Execute SQL