VB 2010 Express свързан с база данни Microsoft Access 2010

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Try
        Dim sqlquery As String = "INSERT INTO Table1(Customer Name,Address,Contact Number,Type Of Customer)VALUES('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "','" & TextBox4.Text & "')"

        Dim sqlcommand As New OleDbCommand

        With sqlcommand
            .CommandText = sqlquery
            .Connection = con
            .ExecuteNonQuery()
        End With
        MsgBox("ONE RECORD SUCCESFULLY ADDED :)")

    Catch ex As Exception
        MsgBox(ex.ToString)

    End Try
End Sub

може ли някой да ми помогне Пише, че има грешка в израза INSERT INTO, не знам защо. Благодаря за помощта.