Flytning af data fra en tabel til en anden med en for løkke

Jeg skal flytte data fra en tabel til en anden, det har jeg prøvet ved at læse data fra den ene tabel ind i et dataset. Derefter prøver jeg at løbe datasettet igennem række efter række. Fordi dataene skal placeres i de rigtige felter. Jeg gør det på følgende måde:
      Dim i As Integer
        For i = 0 To resultat.Tables(0).Rows.Count() - 1
            Dim opfcom As New OleDbCommand
            opfcom.Connection = overfør
            opfcom.CommandText = "update metadb.me_dokumenter set titel = '" & resultat.Tables(0).Rows(0).Item(1) & "', prod_dato =" & resultat.Tables(0).Rows(0).Item(2) & ", rekvirent = '" & resultat.Tables(0).Rows(0).Item(3) & "' where dok_id = " & resultat.Tables(0).Rows(0).Item(0) & ""
            opfcom.ExecuteNonQuery()
        Next

datasettet har navnet resultat.

Problemet med denne for løkke er at jeg kun for den første række flyttet.
Kan det gøres anderledes.