Syntax Error on Update Statement

See more:

VS2008

I got syntax error on my update statement. I am using Visual Basic 2008. Please do help me for I need to finish this asap. Thanks in advance for those who will give their comments..

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 & "'"