Syntax Error using Command Object

[aikidokid]

I am trying to use, for the first time, the command object to insert dates into my table.
I have copied the code from the example in the FAQ's, replacing with my variables.

I am getting the error
"Syntax error in Insert Into statement"
when the execute line fires.

Now I have looked and looked and it looks the same setup at in the FAQ
In a way I hope it's simple, but then again that makes me look

Below are my code and the debug of the strSQL statement:

    strSQL = "INSERT INTO tbl_Grade (Yellow, Orange, Green, GreenBlack, Blue, BlueBlack, Brown, " & _
                            "First, Second, Third, Fourth, Fifth, Sixth, Seventh, Eighth) " & _
                            "VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"
    Debug.Print strSQL
    
    With adoCommand
        .ActiveConnection = cn
        .CommandType = adCmdText
        .CommandText = strSQL
        .Prepared = True
        
        .Parameters.Append .CreateParameter(, adDate, adParamInput, , GradeHistoryDates(0))
        .Parameters.Append .CreateParameter(, adDate, adParamInput, , GradeHistoryDates(1))
        .Parameters.Append .CreateParameter(, adDate, adParamInput, , GradeHistoryDates(2))
        .Parameters.Append .CreateParameter(, adDate, adParamInput, , GradeHistoryDates(3))
        .Parameters.Append .CreateParameter(, adDate, adParamInput, , GradeHistoryDates(4))
        .Parameters.Append .CreateParameter(, adDate, adParamInput, , GradeHistoryDates(5))
        .Parameters.Append .CreateParameter(, adDate, adParamInput, , GradeHistoryDates(6))
        .Parameters.Append .CreateParameter(, adDate, adParamInput, , GradeHistoryDates(7))
        .Parameters.Append .CreateParameter(, adDate, adParamInput, , GradeHistoryDates(8))
        .Parameters.Append .CreateParameter(, adDate, adParamInput, , GradeHistoryDates(9))
        .Parameters.Append .CreateParameter(, adDate, adParamInput, , GradeHistoryDates(10))
        .Parameters.Append .CreateParameter(, adDate, adParamInput, , GradeHistoryDates(11))
        .Parameters.Append .CreateParameter(, adDate, adParamInput, , GradeHistoryDates(12))
        .Parameters.Append .CreateParameter(, adDate, adParamInput, , GradeHistoryDates(13))
        .Parameters.Append .CreateParameter(, adDate, adParamInput, , GradeHistoryDates(14))
        
        .Execute , , adCmdText + adExecuteNoRecords
    End With

INSERT INTO tbl_Grade (Yellow, Orange, Green, GreenBlack, Blue, BlueBlack, Brown, First, Second, Third, Fourth, Fifth, Sixth, Seventh, Eighth) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)