insert ลง access ไม่ผ่านอะคับ ดูให้ที มันฟ้องว่า syntex error in Update ประมาณนั้นคับ

Private Sub btn_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_save.Click
        'กดปุ่ม Save
        Dim cmd As OleDb.OleDbCommand = Nothing 'จัดเก็บค่าของคำสั่ง sql
        Dim sqlUpdate As String = "" ' จัดเก็บคำสั่ง SQL สำหรับเพิ่ม หรือ แก้ไขข้อมูล                                                                                  

        'ทำการตรวจสอบความถูกต้องข้อมูลก่อนการรับข้อมูล
        If txtid_addr.Text = "" Then
            MessageBox.Show("กรุณากรอกข้อมูลให้ครบ", "คำเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
            txtid_addr.Focus()
            Exit Sub

        ElseIf (Trim(txtmoo.Text) = "") Then

            MessageBox.Show("กรุณากรอกข้อมูลให้ครบ", "คำเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)

            txtmoo.SelectionStart = 0
            txtmoo.SelectionLength = Len(txtmoo.Text)
            txtmoo.Focus()

            Exit Sub

      
        ElseIf (Trim(txtvillage.Text) = "") Then

            MessageBox.Show("กรุณากรอกข้อมูลให้ครบ", "คำเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)

            txtvillage.SelectionStart = 0
            txtvillage.SelectionLength = Len(txtvillage.Text)
            txtvillage.Focus()

            Exit Sub
        ElseIf (Trim(txtsub.Text) = "") Then

            MessageBox.Show("กรุณากรอกข้อมูลให้ครบ", "คำเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)

            txtsub.SelectionStart = 0
            txtsub.SelectionLength = Len(txtsub.Text)
            txtsub.Focus()

            Exit Sub
        ElseIf (Trim(txtamper.Text) = "") Then

            MessageBox.Show("กรุณากรอกข้อมูลให้ครบ", "คำเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)

            txtamper.SelectionStart = 0
            txtamper.SelectionLength = Len(txtamper.Text)
            txtamper.Focus()

            Exit Sub
        ElseIf (Trim(txtprovince.Text) = "") Then

            MessageBox.Show("กรุณากรอกข้อมูลให้ครบ", "คำเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)

            txtprovince.SelectionStart = 0
            txtprovince.SelectionLength = Len(txtprovince.Text)
            txtprovince.Focus()

            Exit Sub

        Else
           
            MessageBox.Show("กรุณากรอกข้อมูลให้ครบ", "คำเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)

            txtzip.SelectionStart = 0
            txtzip.SelectionLength = Len(txtzip.Text)
            txtzip.Focus()
        End If

        Select Case actionFlag
            
            Case "EDIT"

                sqlUpdate = "UPDATE Address "
                sqlUpdate &= " SET Moo = '" & txtmoo.Text & "', "
                sqlUpdate &= " Village_Name = '" & txtvillage.Text & "', "
                sqlUpdate &= " Sub = '" & txtsub.Text & "',"
                sqlUpdate &= " District = '" & txtamper.Text & "',"
                sqlUpdate &= " Province = '" & txtprovince.Text & "',"
                sqlUpdate &= " Zip = '" & txtzip.Text & "',"
                sqlUpdate &= " WHERE Address_id = " & txtid_addr.Text

            Case Else
                Exit Sub

        End Select

        'ทำการนำค่าการการแก้ไข,เพิ่มไปเก็บไว้ใน  cmd
        cmd = New OleDbCommand(sqlUpdate, Connection)

        'นำค่า myCommand ไปเก็บใน cmd เพื่อทำการตรวจสอบก่อนการบันทึกข้อมูล
        recordAffected = cmd.ExecuteNonQuery()

        MessageBox.Show("ท่านต้องการบันทึกการแก้ไข: " & txtid_addr.Text & " ใช่หรือไม่?", "ยืนยันการบันทึกข้อมูล", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        
        If recordAffected > 0 Then  ' เพิ่ม หรือ แก้ไขได้สำเร็จ
            MessageBox.Show("บันทึกเรียบร้อย", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
          
        Else
            MessageBox.Show("ไม่สามารถบันทึกได้", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Error)
         End If
        Call Locked()               'เรียกใช้งาน locked
        actionFlag = ""
    End Sub