Något fel i sql´en

Jag förstår inte varför inte detta fungerar. Som standard skall den hämta alla poster ifrån aktuella månaden ifrån databasen. Men den hämtar alla. Access databas och date är Datum/tid som fälttyp.

If Request.QueryString("year") = "" Then
  strYear  = Request.Form("year")
  strMonth = Request.Form("month")
Else
  strYear  = Request.QueryString("year")
  strMonth = Request.QueryString("month")
End If
strDate1 = Date()
strDate = Month(strDate1)
If Len(strDate) = 1 Then
  strDate = "0" & strDate
End If
If Len(strMonth) = 1 Then
  strMonth = "0" & strMonth
End If

	If strYear <> "" and strMonth <> "" Then
  		sql="SELECT orders.orderid, sum(priceperunit*qty) AS gtotal, orders.dfname, dlname,ipnummer,cctype, personnummer, date, codeNO FROM orders INNER JOIN orderitems ON orders.orderid=orderitems.orderid  where Left(orders.date,4)=" & strYear & " And Mid(orders.date,6,2)=" & strMonth & " and orderstatus=null or orderstatus='c' GROUP BY orders.orderid, dfname, dlname, ipnummer,cctype, personnummer, orders.date, codeNO Order By orders.orderid desc"
	ELseIf strYear <> "" and strMonth = "" Then
  		sql="SELECT orders.orderid, sum(priceperunit*qty) AS gtotal, orders.dfname, dlname,ipnummer,cctype, personnummer, date, codeNO FROM orders INNER JOIN orderitems ON orders.orderid=orderitems.orderid  where Left(orders.date,4)=" & strYear & " and orderstatus=null or orderstatus='c' GROUP BY orders.orderid, dfname, dlname, ipnummer,cctype, personnummer, orders.date, codeNO Order By orders.orderid desc"
	ELse
  		sql="SELECT orders.orderid, sum(priceperunit*qty) AS gtotal, orders.dfname, dlname,ipnummer,cctype, personnummer, date, codeNO FROM orders INNER JOIN orderitems ON orders.orderid=orderitems.orderid  where Left(orders.date,4)=" & Year(strDate1) & " And Mid(orders.date,6,2)=" & strDate & " and orderstatus=null or orderstatus='c' GROUP BY orders.orderid, dfname, dlname, ipnummer,cctype, personnummer, orders.date, codeNO Order By orders.orderid desc"
	End If