Problème d'écriture dans base de donnée

Bonjour,
Voila mon souci, j'écris dans une base de donnée acces mais le problème est que lors de ma sécquence d'écriture, j'écris dans mon table1 que une colonne sur deux.
exemple:
"1", rien, "salut", rien, "tu", rien, "bien", rien,
au lieu de
"1"," 23"," salut", "toto","tu"," vas", "bien"," ?",

Je ne comprend pas mon erreur

Voici mon Code:
        Dim i= 0
        ObjetDataRow = ObjetDataSet.Tables("Table1").NewRow()

        For i = 0 To 37

            ObjetDataRow(i) = Resultat_Mesure(i)
            i = i + 1
            Application.DoEvents()
        Next

        ObjetDataSet.Tables("Table1").Rows.Add(ObjetDataRow)

        'Pour modifier les valeurs changées dans le DataAdapter
        ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)

       'Mise à jour
        ObjetDataAdapter.Update(ObjetDataSet, "Table1")

        'On vide le DataSet et on le 'recharge' de nouveau.
        ObjetDataSet.Clear()

        ObjetDataAdapter.Fill(ObjetDataSet, "Table1")

        ObjetDataTable = ObjetDataSet.Tables("Table1")