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语句中有一个错误,我不知道为什么。谢谢你的帮助。