Data mismatch in criteria expression in VB.NET 2013

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim conn As New OleDb.OleDbConnection
        Dim connStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\teejay.accdb;Persist Security Info=False"
        Dim cmd As New OleDb.OleDbCommand

        Try
            conn.ConnectionString = connStr
            conn.Open()
            cmd.Connection = conn

            cmd.CommandText = "INSERT INTO Statistic ([Date],[Bowen],[Nursing],[Bowen1],[Nursing1],[Total Bowen],[Total Nursing]) " & _
                         "VALUES ([@Date],[@Bowen],[@Nursing],[@Bowen1],[@Nursing1],[@Total Bowen],[@Total Nursing]); "
           
            cmd.Parameters.AddWithValue("@Date", DateDateTimePicker.Text)
            cmd.Parameters.AddWithValue("@Bowen", BowenTextBox.Text)
            cmd.Parameters.AddWithValue("@Nursing", NursingTextBox.Text)
            cmd.Parameters.AddWithValue("@Bowen1", Bowen1TextBox.Text)
            cmd.Parameters.AddWithValue("@Nursing1", Nursing1TextBox.Text)
            cmd.Parameters.AddWithValue("@Total Bowen", Total_BowenTextBox.Text)
            cmd.Parameters.AddWithValue("@Total Nursing", Total_NursingTextBox.Text)

            cmd.ExecuteNonQuery()
            conn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class