Syntax Error In Update Statement..ارجو المساعده

Imports System.Data

Imports System.Data.OleDb

Public Class editUser

Dim Cn As New OleDbConnection

Dim Cmd As New OleDbCommand

Dim RAD As OleDbDataReader

Dim Str As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim newUser As String

Dim selecteduser As String

newUser = TextBox1.Text

selecteduser = ComboBox1.Text

If TextBox1.Text.Length = 0 Then

MsgBox("No new user name has been entered")

Exit Sub

End If

Try

Cn.Close()

Cmd.Connection.Close()

Cmd.CommandText = "UPDATE Login SET User = '" & newUser & "' WHERE User = '" & selecteduser & "'"

Cn.Open()

Cmd.ExecuteNonQuery()

Cn.Close()

mainMessage = "User has been updated successfully"

main.Show()

Me.Hide()

Catch ex As Exception

MsgBox(ex.ToString)

End Try

End Sub

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

Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=BillData.mdb"

Cn.ConnectionString = (Str)

Cn.Open()

ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList

Cmd.CommandType = CommandType.Text

Cmd.Connection = Cn

Call FillMyCombo()

End Sub

Public Sub FillMyCombo()

Cmd.Connection.Close()

Cmd.CommandText = "Select User From Login"

Cmd.Connection.Open()

RAD = Cmd.ExecuteReader

ComboBox1.Items.Clear()

Do While RAD.Read

ComboBox1.Items.Add(RAD("User"))

Loop

ComboBox1.Refresh()

End Sub

End Class