I got Syntax Error on my Update command.. Please do help me for I need to finish this

[lanp]

Imports System.Data

Imports System.Data.OleDb


Public Class ControlFile
    Dim cnnOLEDB As New OleDbConnection

    Dim cmdOLEDB As New OleDbCommand

    Dim cmdInsert As New OleDbCommand

    Dim cmdUpdate As New OleDbCommand

    Dim cmdRemove As New OleDbCommand

    Dim strConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= E:\VB Programs\AIS.accdb"

Private Sub ControlFile_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        cnnOLEDB.ConnectionString = strConnectionString

        cnnOLEDB.Open()

End Sub


Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEdit.Click

If OrganizationTextBox.Text <> "" And CalendarYearTextBox.Text <> "" Then

          
cmdUpdate.CommandText = "UPDATE ControlFile SET " & _
"Organization = '" & OrganizationTextBox.Text & "', " & _
"CalendarYear = '" & CalendarYearTextBox.Text & "', " & _
"EarningsControl = '" & EarningsControlTextBox.Text & "', " & _
"EarningsAccount = '" & EarningsAccountTextBox.Text & "', " & _
"RetainedControl = '" & RetainedControlTextBox.Text & "', " & _
"RetainedAccount = '" & RetainedAccountTextBox.Text & "', " & _
"DebitCredit = '" & DebitCreditTextBox.Text & "', " & _
"CurrentPeriod = '" & CurrentPeriodTextBox.Text & "', " & _
"WHERE Organization = '" & OrganizationTextBox.Text & "'"

[Rabbit]

Please use code tags when posting code or formatted data.

It would help to have the full error message, but the most likely cause is that you have an extra comma in your SQL string before the where clause.