syntax error insert into statement

[Olabode]

hello guys
I am new here and in programing
I have this program that I am designing am using Visual studio 2010 and ms access 2010. am using ms access as a data base i have successfully designed the form and runs it but when ever I try to save to my data base it shows me "syntax error insert into statement" and I have checked all I know. mind you I use text box all through
thanks in anticipation
here is my code

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports System.Data.OleDb
Imports System.Data.OleDb.OleDbConnection
Public Class Form1
    Dim dbSave As New OleDb.OleDbCommand
    Dim dbConnect As New OleDb.OleDbConnection
    Dim sReader As OleDb.OleDbDataReader
    Dim Line As String = Environment.NewLine
    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtpayslipno.TextChanged

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            dbConnect.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Admin\Desktop\pastor work\WindowsApplication6\Database9.accdb"
            dbconnect.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message + Line + "Main Database Not Found" + Line + "Check form_AccessMaintenance source code" + Line + "Database Path", "Critical Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Me.Close()
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim xempi, xempn, xdept, xpsn, xbspm, xpp, xsp, xpd, xovtc, xshc, xtall, xtxp, xtam, xtram, xmisp, xld, xla, xpfi, xesi, xtax, xmec, xcoc, xlcam, xmisd, xremk As String
        xempi = txtemployid.Text
        xempn = txtemployname.Text
        xdept = txtdepartment.Text
        xpsn = txtpayslipno.Text
        xbspm = txtBasicsalary.Text
        xpp = txtpayperiod.Text
        xsp = txtSalaryperiod.Text
        xpd = txtpaiddate.Text
        xovtc = txtOvertimec.Text
        xshc = txtshiftcharge.Text
        xtall = txttotalal.Text
        xtxp = txttotalexp.Text
        xtam = txttotalam.Text
        xtram = txttrainingam.Text
        xmisp = txtmiscpay.Text
        xld = txtleaveday.Text
        xla = txtleaveam.Text
        xpfi = txtpfi.Text
        xesi = txtesi.Text
        xtax = txttaxam.Text
        xmec = txtmesscha.Text
        xcoc = txtconveyancec.Text
        xlcam = txtlcelamount.Text
        xmisd = txtmiscdeduction.Text
        xremk = txtremark.Text


        If txtemployid.Text = "" Then

        End If

        Try

            xempi = txtemployid.Text
            xempn = txtemployname.Text
            dbSave.CommandText = "INSERT INTO Table1(EmployeeID, EmployeeName, Department, PayslipNo,Basicsalaryperm, Payperiod, SalaryPeriod, PAidDays, Overtimecharge, ShiftCharge, TotalAllawance, TotalExpenses, TotalAmount, TrainingAmount, MiscPAyment, LeaveAmount, PFI, ESI, TaxAmount, MessAmount, COnveyanceCharge, LC/ELAmount, MiscDeduction, Remarks) VALUES ('" & xempi & "','" & xempn & "','" & xdept & "','" & xpsn & "','" & xbspm & "','" & xpp & "','" & xsp & "','" & xpd & "','" & xovtc & "','" & xshc & "','" & xtall & "','" & xtxp & "','" & xtam & "','" & xtram & "','" & xmisp & "','" & xld & "','" & xla & "','" & xpfi & "','" & xesi & "','" & xtax & "','" & xmec & "','" & xcoc & "','" & xlcam & "','" & xmisd & "','" & xremk & "')"
            'MsgBox(dbInsert.CommandText)                                                                                                                   
            dbSave.CommandType = CommandType.Text
            dbSave.Connection = dbConnect
            dbSave.ExecuteNonQuery()
            MessageBox.Show("Record Posted Succesfully for " + Line + txtemployid.Text)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub

    'Private Function dbSave() As Object
    '    Throw New NotImplementedException
    'End Function

End Class

[Rabbit]

You specified 24 fields yet you are trying to insert 25 fields.

Also your LC/ELAmount has a non-standard field character so you will need to tell SQL that it's a field name by surrounding it in square brackets.