Error 3061: Too few parameters 1 required when using datepart() in VBA

Question

I want to fill out an excel sheet, the data is stored in a database under SQL server. I do this via VBA

Sub fillRows(db As DAO.Database, query As String, row As I