Resultat från "detta året" (2006)

Jag använder Access + ASP och jag ska lista resultat från detta året. Denna koden fungerar och resultatet blir som jag vill. Min fråga är om det går att lösa datum-frågan på ett lite smidigare sätt!?

SQL = "SELECT COUNT(*) " _
	& ", (SELECT COUNT(*) FROM [starts] WHERE strP = '1' AND dteCreated >=#2006-01-01# AND dteCreated <#" & date() & "# AND bolView = TRUE) " _
	& ", (SELECT COUNT(*) FROM [starts] WHERE strP = '2' AND dteCreated >=#2006-01-01# AND dteCreated <#" & date() & "# AND bolView = TRUE) " _
	& ", (SELECT COUNT(*) FROM [starts] WHERE strP = '3' AND dteCreated >=#2006-01-01# AND dteCreated <#" & date() & "# AND bolView = TRUE) " _
	& ",  SUM(intPrissumma) " _
	& " FROM [starts] WHERE dteCreated >=#2006-01-01# AND dteCreated <#" & date() & "# AND bolView = TRUE ;"

SQL = "SELECT COUNT(*) " _
	& ", sum(iif(strP = '1',1,0)) " _
	& ", sum(iif(strP = '2',1,0)) " _
	& ", sum(iif(strP = '3',1,0)) " _
	& ",  SUM(intPrissumma) " _
	& " FROM [starts] "  _
        & " WHERE dteCreated >=#2006-01-01# " _
        & " AND dteCreated < date() " _
        & " AND bolView = TRUE"

Oj....!! Det var skillnad!