Hi all,
I trying to transfer data from a word form to EXCEL using the following script but getting error

"-2147217900: Syntax error in INSERT INTO statement". Really appricate if anyone could help?

Sub TransferToExcel()
'Transfer a single record from the form fields to an Excel workbook.
Dim doc As Document
Dim strForename As String
Dim strSurname As String
Dim strLocation As String
Dim strPersonnelNumber As String
Dim strGradeTitle As String
Dim strContactNumber As String
Dim strContactEMail As String


Dim strSQL As String
Dim cnn As ADODB.Connection


'Get data.
Set doc = ThisDocument
On Error GoTo ErrHandler
strForename = Chr(39) & doc.FormFields("txtForename").Result & Chr(39)
strSurname = Chr(39) & doc.FormFields("txtSurname").Result & Chr(39)
strLocation = Chr(39) & doc.FormFields("txtLocation").Result & Chr(39)
strPersonnelNumber = Chr(39) & doc.FormFields("txtPersonnelNumber").Result & Chr(39)
strGradeTitle = Chr(39) & doc.FormFields("txtGradeTitle").Result & Chr(39)
strContactNumber = Chr(39) & doc.FormFields("txtContactNumber").Result & Chr(39)
strContactEMail = Chr(39) & doc.FormFields("txtContactEMail").Result & Chr(39)





'Define sql string used to insert each record in the destination workbook.
'Don't omit the $ in the sheet identifier.
strSQL = "INSERT INTO [Sheet1$]" _
& " (Forename,Surname,Location,PersonnelNumber,GradeTitle,ContactNumber,ContactEMail)" _
& " VALUES(" _
& strForename & ", " _
& strSurname & ", " _
& strLocation & ", " _
& strPersonnelNumber & ", " _
& strGradeTitle & ", " _
& strContactNumber & ", " _
& strContactEMail_ & ")"