Запись в базу не работает

  'запись
        Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\test.accdb;Persist Security Info=True")
        Dim cmd As New OleDbCommand
        con.Open()
        cmd.Connection = con
      
        While i
            i = i + 1
            If DataGridView1.Rows(i).Cells(1).Value = "" Then Exit While
           
            cmd.CommandText = "INSERT INTO 4 ([Код],[предложение],[строки],[оценка],[анализ],[рекомендация]) VALUES (='" & DataGridView1.Rows(i).Cells(0).Value & "','" & DataGridView1.Rows(i).Cells(1).Value & "','" & DataGridView1.Rows(i).Cells(2).Value & "','" & DataGridView1.Rows(i).Cells(3).Value & "','" & DataGridView1.Rows(i).Cells(4).Value & "','" & DataGridView1.Rows(i).Cells(5).Value & "')"
          cmd.CommandText = "UPDATE 4 SET [предложение]='" & DataGridView1.Rows(i).Cells(1).Value & "',[строки]='" & DataGridView1.Rows(i).Cells(3).Value & "',[оценка]='" & DataGridView1.Rows(i).Cells(4).Value & "',[анализ]='" & DataGridView1.Rows(i).Cells(5).Value & "' WHERE Код = '" & i & "'"
                 cmd.ExecuteNonQuery()
 
        End While
      
        cmd = Nothing
        con.Close()

   Dim i As Integer

do
            i = i + 1
            If DataGridView1.Rows(i).Cells(1).Value = "" Then Exit do
           
            cmd.CommandText = "INSERT INTO 4 ([Код],[предложение],[строки],[оценка],[анализ],[рекомендация]) VALUES (='" & DataGridView1.Rows(i).Cells(0).Value & "','" & DataGridView1.Rows(i).Cells(1).Value & "','" & DataGridView1.Rows(i).Cells(2).Value & "','" & DataGridView1.Rows(i).Cells(3).Value & "','" & DataGridView1.Rows(i).Cells(4).Value & "','" & DataGridView1.Rows(i).Cells(5).Value & "')"
          cmd.CommandText = "UPDATE 4 SET [предложение]='" & DataGridView1.Rows(i).Cells(1).Value & "',[строки]='" & DataGridView1.Rows(i).Cells(3).Value & "',[оценка]='" & DataGridView1.Rows(i).Cells(4).Value & "',[анализ]='" & DataGridView1.Rows(i).Cells(5).Value & "' WHERE Код = '" & i & "'"
                 cmd.ExecuteNonQuery()
 
        loop

  i = i + 1
            If DataGridView1.Rows(i - 1).Cells(1).Value = "" Then Exit Do
 
            cmd.CommandText = "INSERT INTO 4 ([предложение],[строки],[оценка],[анализ],[рекомендация]) VALUES (='" & DataGridView1.Rows(i - 1).Cells(1).Value & "','" & DataGridView1.Rows(i - 1).Cells(2).Value & "','" & DataGridView1.Rows(i - 1).Cells(3).Value & "','" & DataGridView1.Rows(i - 1).Cells(4).Value & "','" & DataGridView1.Rows(i - 1).Cells(5).Value & "')"
             cmd.ExecuteNonQuery()

cmd.CommandText = "UPDATE 4 SET [предложение]='" & Trim(DataGridView1.Rows(i).Cells(1).Value) & "',[строки]='" & Trim(DataGridView1.Rows(i).Cells(2).Value) & "',[оценка]='" & Trim(DataGridView1.Rows(i).Cells(3).Value) & "',[анализ]='" & Trim(DataGridView1.Rows(i).Cells(4).Value) & "',[рекомендация]='" & Trim(DataGridView1.Rows(i).Cells(5).Value) & "' "