语法错误插入语句 - 视觉基本到ms访问

Question

Public Class Form2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim sqlconn As New OleDb.OleDbConnection
    Dim sqlconn1 As New OleDb.OleDbConnection
    Dim sqlquery As New OleDb.OleDbCommand
    Dim sqlquery1 As New OleDb.OleDbCommand()
    Dim connString As String
    Dim success As Boolean
    connString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Patrick\Desktop\Systems Database.accdb"
    sqlconn.ConnectionString = connString
    sqlconn1.ConnectionString = connString
    sqlquery.Connection = sqlconn
    sqlquery1.Connection = sqlconn1
    sqlconn.Open()
    sqlconn1.Open()
    Dim birthday As String
    birthday = BirthdayDateTimePicker.Value.ToString("yyyy-MM-dd")
    sqlquery.CommandText = "INSERT INTO USER([UserID], [Customer Name], [Address], [Birthday], [Age], [Contact Number], [Email Address])VALUES(@Username, @CustomerName, @Address, @Birthday, @Age, @ContactNumber, @EmailAddress)"
    sqlquery.Parameters.AddWithValue("@Username", UserIDTextBox.Text)
    sqlquery.Parameters.AddWithValue("@CustomerName", Customer_NameTextBox.Text)
    sqlquery.Parameters.AddWithValue("@Address", AddressTextBox.Text)
    sqlquery.Parameters.AddWithValue("@Birthday", birthday)
    sqlquery.Parameters.AddWithValue("@Age", AgeTextBox.Text)
    sqlquery.Parameters.AddWithValue("@ContactNumber", Contact_NumberTextBox.Text)
    sqlquery.Parameters.AddWithValue("@EmailAddress", Email_AddressTextBox.Text)
    sqlquery1.CommandText = "INSERT INTO CUSTOMER([UserID], [Password])VALUES(@Username, @Password)"
    sqlquery1.Parameters.AddWithValue("@Username", UserIDTextBox.Text)
    sqlquery1.Parameters.AddWithValue("@Password", UserPasswordTextBox.Text)
    sqlquery.ExecuteNonQuery()
    sqlquery1.ExecuteNonQuery()
    sqlquery.Dispose()
    sqlquery1.Dispose()
    sqlconn.Close()
    sqlconn1.Close()

    If Not UserIDTextBox.Text = "" And Not Customer_NameTextBox.Text = "" And Not AddressTextBox.Text = "" And Not AgeTextBox.Text = "" And Not Contact_NumberTextBox.Text = "" And Not Email_AddressTextBox.Text = "" Then
        success = True
    End If

    If UserIDTextBox.Text = "" Or Customer_NameTextBox.Text = "" Or AddressTextBox.Text = "" Or AgeTextBox.Text = "" Or Contact_NumberTextBox.Text = "" Or Email_AddressTextBox.Text = "" Then
        MsgBox("Message", MsgBoxStyle.Critical)
        success = False
    End If
    If success = True Then
        MsgBox("Registration Complete.", 0 + 0, "Success!")
        Me.Close()
        Form1.Show()
    End If
End Sub

我很难弄清楚这个问题是什么。 UserID和密码是短文。它位于USER表中，CUSTOMER表中的数据类型相同。我还包括主键。