استفسار عن مشكلة .. (كود بسيط لكن لا يطبق !)

'Try

Dim SavInto As New OleDb.OleDbCommand

Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\info.mdb"

Dim Conn As New OleDbConnection(ConStr)

SavInto.Connection = Conn

SavInto.CommandType = CommandType.Text

SavInto.CommandText = "INSERT INTO [s-Info](IDStd,Section,First,Last,Grade,Group,BirthDate,UserName,EmailAddress,HomeP

hone,Mobile,DateOfRegstring) " & _

"values ('" & Val(TextBox1.Text) & "','" & ComboBox1.SelectedItem & "','" & TextBox10.Text & "','" & TextBox8.Text & "','" & TextBox7.Text & "','" & _

TextBox6.Text & "','" & DateTimePicker2.Value & "','" & TextBox5.Text & "','" & TextBox4.Text & "','" & TextBox3.Text & "','" & TextBox2.Text & _

"','" & DateTimePicker1.Value & "')"

Conn.Open()

SavInto.ExecuteNonQuery()

Conn.Close()

MsgBox("Saved Succefully")

Me.Close()

forms.Show()

'Catch ex As Exception

'MsgBox("there is somthing")

'Exit Sub

' End Try

End Sub

هذه الرسالة التي تظهر لي :

Syntax error in INSERT INTO statement

Private Sub ButtonSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSave.Click

Dim n As String = Label13.Text

Dim SavInto As New OleDb.OleDbCommand

Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\info.mdb"

Dim Conn As New OleDbConnection(ConStr)

SavInto.Connection = Conn

SavInto.CommandType = CommandType.Text

SavInto.CommandText = "UPDATE [s-Info] SET IDStd='" & Trim(TextBox1.Text) & "',Section='" & _

Trim(ComboBox1.Text) & "',First='" & Trim(TextBox10.Text) & "',Last='" & Trim(TextBox8.Text) & _

"',Grade='" & Trim(TextBox7.Text) & "',Group='" & Trim(TextBox6.Text) & "',BirthDate=#" & _

DateTimePicker2.Value & "#,UserName='" & Trim(TextBox5.Text) & "',EmailAddress='" & _

Trim(TextBox4.Text) & "',HomePhone='" & Trim(TextBox3.Text) & "',Mobile='" & _

Trim(TextBox2.Text) & "',DateOfRegstring=#" & DateTimePicker1.Value & "# WHERE Mobile='" & n & "'"

Conn.Open()

SavInto.ExecuteNonQuery()

Conn.Close()

MsgBox("Saved Succefully")

Me.Close()

StudentForm.Show()

End Sub

هذه الرسالة التي تظهر لي :

Syntax error in UPDATE statement

.