ВСТАВКА ОШИБКИ СИНТАКСА В ЗАЯВЛЕНИЕ - База данных Visual Basi c + MS Access

Question

Может ли кто-нибудь здесь объяснить, что происходит с этой ошибкой кода? Отладчик ничего не показывает, но когда я запускаю программу, я всегда получаю эту ошибку

СИНТАКСИЧЕСКАЯ ОШИБКА в выражении INSERT INTO

Пожалуйста, помогите мне, ребята.

ИНФОРМАЦИЯ О БАЗЕ ДАННЫХ ДОСТУПА

Imports System.Data.OleDb
Public Class newemployee
        'connection
        Dim DBcs As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Michael\Documents\systemdatabase.mdb"
        Dim DBcn As OleDbConnection = New OleDbConnection(DBcs)
        Dim DBcd As OleDbCommand
        Dim DBda As OleDbDataAdapter
        Dim Dbdt As DataTable = New DataTable()

    'SAVE BUTTON COMMAND
        Public Sub Add()
            Try
                'SQL STATEMENT
                DBcn.Open()
                DBcd = New OleDbCommand("INSERT INTO employee (Employee_ID, Last_Name, First_Name, Middle_Name, Position, Department, Basic_Salary, Date_Hired, Birth_Date, Age, Gender, Civil_Status, Address, Email_Address, Phone_No, SSS_No, PhilHealth_No, Pagibig_No, Photo)
                VALUES (@Employee_ID, @Last_Name, @First_Name, @Middle_Name, @Position, @Department, @Basic_Salary, @Date_Hired, @Birth_Date, @Age, @Gender, @Civil_Status, @Address, @Email_Address, @Phone_No, @SSS_No, @PhilHealth_No, @Pagibig_No, @Photo)", DBcn)
                With DBcd
                    'PARAMETERS                                                 'DATA TYPE
                    .Parameters.AddWithValue("@Employee_ID", TextBox1.Text) 'OleDbType.Integer
                    .Parameters.AddWithValue("@Last_Name", TextBox2.Text) 'OleDbType.WChar
                    .Parameters.AddWithValue("@First_Name", TextBox3.Text) 'OleDbType.WChar
                    .Parameters.AddWithValue("@Middle_Name", TextBox4.Text) 'OleDbType.WChar
                    .Parameters.AddWithValue("@Position", ComboBox3.Text) 'OleDbType.WChar
                    .Parameters.AddWithValue("@Department", ComboBox4.Text) 'OleDbType.WChar
                    .Parameters.AddWithValue("@Basic_Salary", TextBox7.Text) 'OleDbType.Integer
                    .Parameters.AddWithValue("@Date_Hired", DateTimePicker2.Value.ToString) 'OleDbType.Date
                    .Parameters.AddWithValue("@Birth_Date", DateTimePicker1.Value.ToString) 'OleDbType.Date
                    .Parameters.AddWithValue("@Age", TextBox5.Text) 'OleDbType.Integer
                    .Parameters.AddWithValue("@Gender", ComboBox1.Text) 'OleDbType.WChar
                    .Parameters.AddWithValue("@Civil_Status", ComboBox2.Text) 'OleDbType.WChar
                    .Parameters.AddWithValue("@Address", TextBox6.Text) 'OleDbType.WChar
                    .Parameters.AddWithValue("@Email_Address", TextBox9.Text) 'OleDbType.WChar
                    .Parameters.AddWithValue(“@Phone_No”, TextBox8.Text) 'OleDbType.Integer
                    .Parameters.AddWithValue("@SSS_No", TextBox10.Text) 'OleDbType.Integer
                    .Parameters.AddWithValue("@PhilHealth_No", TextBox11.Text) 'OleDbType.Integer
                    .Parameters.AddWithValue("@Pagibig_No", TextBox12.Text) 'OleDbType.Integer
                    .Parameters.AddWithValue("@Photo", Button1.BackgroundImage) 'OleDbType.Binary
                    .ExecuteNonQuery()
                End With
                DBcn.Close()
                MsgBox("Added Successfully", vbInformation)
                Clear()
            Catch ex As Exception
                DBcn.Close()
                MsgBox(ex.Message, vbCritical)
            End Try
        End Sub