sayın ustaoglu,

bahsettiğiniz talebinize yönelik olarak;

Try

        baglanti.Open()

        Dim sorgu As String

        For a = 0 To DataGridView1.RowCount - 1

        sorgu = "UPDATE donemler SET  donemler = '" & DataGridView1.Rows(a).Cells(1).Value.ToString() & "'' where sira='" & DataGridView1.Rows(a).Cells(0).Value.ToString() & "'"

        Dim cmd As New OleDbCommand(sorgu, baglanti)

        cmd.ExecuteNonQuery()

            Next

            baglanti.Close()

              Catch ex As Exception

            baglanti.Close()

 End Try

yukarıda yazılı kodları deneyiniz.

NOT
alan adlarında eğer METİN Veri Türü ise KESME İŞARETİ (')  kullanınız fakat eğer SAYI ise kullanmayınız.

bilginize...iyi çalışmalar,saygılar.