Syntex Error in INSERT INTO Stament จะต้องเข้าไปแก้ตรงไหนคับ

Imports System.Data
Imports System.Data.OleDb
Public Class frmCustomer
    Dim strConn As String
    Dim Conn As New OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As New DataSet

    Dim dt As DataTable
    Dim dr As DataRow
    Dim CurrentCustomers As Integer
    Dim IsFind As Boolean = False
    Dim btnChk As String
    Private Sub frmCustomer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strconn As String
        txtID.Enabled = False
        btnSave.Enabled = False
        btnCancel.Enabled = False
        btnUpdate.Enabled = False
        btnDetele.Enabled = False
        strconn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= C:\Documents and Settings\Administrator\My Documents\Visual Studio 2010\Projects\WindowsApplication3\WindowsApplication3\tblCustomer.accdb"
        With Conn 'เริ่มต้นการเชื่อมต่อฐานข้อมูล
            If .State = ConnectionState.Open Then Close()
            .ConnectionString = strconn
            .Open() 'เชื่อมต่อกับฐานข้อมูล
        End With
        ShowAllCustomers()
        FormatAllCustomers()
    End Sub
    Private Sub FormatAllCustomers()
        Dim cs As New DataGridViewCellStyle()
        cs.Font = New Font("Ms Sans Serif", 10, FontStyle.Bold)
        With dgvAIICustomer
            .ColumnHeadersDefaultCellStyle = cs
            .Columns(0).HeaderText = "รหัสพนักงาน"
            .Columns(1).HeaderText = "ชื่อพนักงาน"
            .Columns(2).HeaderText = "ตำแหน่ง"
            .Columns(3).HeaderText = "เพศ"
            .Columns(4).HeaderText = "เงินเดือน"
            .Columns(0).Width = 50
            .Columns(1).Width = 100
            .Columns(2).Width = 100
            .Columns(3).Width = 100
            .Columns(4).Width = 100

        End With
    End Sub
    Private Sub ShowAllCustomers()
        Dim sqlCust As String
        sqlCust = "SELECT * "
        sqlCust &= "FROM tblCustomer"
        If IsFind = True Then
            ds.Tables("tblCustomer").Clear()
        End If
        da = New OleDbDataAdapter(sqlCust, Conn)
        da.Fill(ds, "tblCustomer")
        If ds.Tables("tblCustomer").Rows.Count <> 0 Then
            IsFind = True
            With dgvAIICustomer
                .ReadOnly = True
                .DataSource = ds.Tables("tblCustomer")
            End With
        Else
            IsFind = False
        End If
    End Sub

    Private Sub dgvAllCusoumers_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvAIICustomer.CellContentClick, dgvAIICustomer.CellContentClick
        If e.RowIndex = dgvAIICustomer.Rows.Count - 1 Then
            Exit Sub
        End If
        With dgvAIICustomer
            txtID.Text = .Rows.Item(e.RowIndex).Cells(0).Value.ToString()
            txtName.Text = .Rows.Item(e.RowIndex).Cells(1).Value.ToString()
            txtPosition.Text = .Rows.Item(e.RowIndex).Cells(2).Value.ToString()
            txtSex.Text = .Rows.Item(e.RowIndex).Cells(3).Value.ToString()
            txtSalary.Text = .Rows.Item(e.RowIndex).Cells(4).Value.ToString()
        End With
        btnUpdate.Enabled = True
        btnDetele.Enabled = True
    End Sub

    Private Sub btnInsert_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInsert.Click
        btnChk = "Add"
        btnInsert.Enabled = False
        btnUpdate.Enabled = False
        btnDetele.Enabled = False
        btnSave.Enabled = True
        btnCancel.Enabled = True
        txtID.Text = ""
        txtName.Text = ""
        txtPosition.Text = ""
        txtSex.Text = ""
        txtSalary.Text = ""
        txtName.Focus()
    End Sub

    Private Sub btnUpdate_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        btnChk = "Update" 'เก็บค่าการคลิกปุ่ม โดยให้มีค่าเป็น Update
        btnInsert.Enabled = False 'ปุ่ม เพิ่ม เปิดการทำงาน
        btnUpdate.Enabled = False 'ปุ่ม แก้ไข เปิดการทำงาน
        btnDetele.Enabled = False 'ปุ่ม ลบ เปิดการทำงาน
        btnSave.Enabled = True 'ปุ่ม ตกลง เปิดการทำงาน
        btnCancel.Enabled = True 'ปุ่ม ยกเลิก เปิดการทำงาน
    End Sub

    Private Sub btnDetele_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDetele.Click
        Dim sqlDelete As String
        Dim comAdd As New OleDbCommand
        If MessageBox.Show("ต้องการลบข้อมูล", "ยืนยันการลบ", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.Yes Then
            sqlDelete = "Delete From tblCustomer"
            sqlDelete &= " WHERE (CustID=" & CInt(txtID.Text) & ")"
            With comAdd
                .CommandType = CommandType.Text
                .CommandText = sqlDelete
                .Connection = Conn
                .ExecuteNonQuery()
            End With
            ShowAllCustomers()
        End If
    End Sub

    Private Sub btnSave_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim sqlAdd As String
        Dim sqlEdit As String
        Dim comAdd As New OleDbCommand
        Select Case btnChk 'ตรวจสอบการคลิกปุ่ม
            Case "Add" 'กรณีถ้าคลิกปุ่ม เพิ่ม
                'ตรวจสอบการป้อนข้อมูลว่าครบถ้วนหรือไม่
                If (txtName.Text = "") Or (txtPosition.Text = "") Or (txtSex.Text = "") Or (txtSalary.Text = "") Then
                    MsgBox("โปรดป้อนข้อมูลให้ครบ")
                    txtName.Focus()
                    Exit Sub
                End If
                'คำสั่ง SQL เพื่อแทรกข้อมูลในตาราง tblCustomer
                sqlAdd = "Insert Into tblCustomer (CustName,Position,Sex,Salary)"
                sqlAdd &= " VALUES ('" & txtName.Text & "',"
                sqlAdd &= "'" & txtPosition.Text & "',"
                sqlAdd &= "'" & txtSex.Text & "',"
                sqlAdd &= "'" & txtSalary.Text & "')" 'การสั่งออปเจค comAdd ให้ทำงาน
                With comAdd
                    .CommandType = CommandType.Text 'เซตประเภทคอมมาน
                    .CommandText = sqlAdd 'ใส่ชุดคำสั่ง SQL
                    .Connection = Conn 'บอกว่าจะไปทางไหน
                    .ExecuteNonQuery() 'ไปทำงานได้ (ส่งคำสั่งไปแบบไม่ต้องการผลลัพธ์คืนมา)
                End With
                MsgBox("บันทึกข้อมูลเรียบร้อย") 'แสดง MessageBox ว่าได้บันทึกข้อมูลแล้ว
                ShowAllCustomers() 'แสดงข้อมูลใน DataGridView
            Case "Update" 'กรณีถ้าคลิกปุ่ม แก้ไข
                'คำสั่ง SQL ในการปรับปรุงข้อมูลในตาราง tblCustomer ตาม รหัสพนักงาน
                sqlEdit = "UPDATE tblCustomer"
                sqlEdit &= " SET CustName = '" & txtName.Text & "',"
                sqlEdit &= " Position = '" & txtPosition.Text & "',"
                sqlEdit &= " Sex = '" & txtSex.Text & "',"

                sqlEdit &= " Salary = '" & txtSalary.Text & "'"
                sqlEdit &= " WHERE (CustID = " & CInt(txtID.Text) & ")"
                'การสั่งออปเจค comAdd ให้ทำงาน
                With comAdd
                    .CommandType = CommandType.Text
                    .CommandText = sqlEdit
                    .Connection = Conn
                    .ExecuteNonQuery()
                End With
                MsgBox("แก้ไขข้อมูลเรียบร้อย") 'แสดง MessageBox ว่าได้แก้ไขข้อมูลแล้ว
                ShowAllCustomers() 'แสดงข้อมูลใน DataGridView
            Case Else
                MsgBox("ไม่มีการทำงาน")
        End Select
        btnInsert.Enabled = True 'ปุ่ม เพิ่ม เปิดการทำงาน
        btnUpdate.Enabled = True 'ปุ่ม แก้ไข เปิดการทำงาน
        btnDelete.Enabled = True 'ปุ่ม ลบ เปิดการทำงาน
        btnSave.Enabled = False 'ปุ่ม ตกลง เปิดการทำงาน
        btnCancel.Enabled = False 'ปุ่ม ยกเลิก เปิดการทำงาน
    End Sub
    Private Sub btnCancel_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        btnChk = ""
        btnInsert.Enabled = True
        btnUpdate.Enabled = True
        btnDetele.Enabled = True
        btnSave.Enabled = False
        btnCancel.Enabled = False
    End Sub

   
End Class



ตรงInsert into บอกว่าไวยากรไม่ถูก