Galera consegui fazer um porjeto no vb que inclua dados de uma bas dbf para sql.

coloquei um data, um adodc, 3 caixa de texto.

MAs tem um problema. Só consigo inserir 2 intes de 1000, pois da erro de duplicação.

O código usado foi o seguinte:

  Do While Not data1.eofaction

  adodc1.recordset.addnew

  text1.text=text2.text

  adodc1.recordset.save

  data1.recordeset.movenext

  text3.text = val(text3.text) + 1 // Caixa para gera número de consulta, cujo campo esta dando duplicação.

  Gostaria de saber se o código esta errado e se tem outra forma melhor.

                         Desde ja Grato,

                                     Diogo Areas.