Optimering af db kald (Access DB)

Hejsa,

Har lige fået følg. kode, men det er dræbende langsom (lidt over 8 sek at udføre)

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\www\www.mitdomæne.x\db\database.mdb"

for num = 0 to 11
    dtmMonth = Month(DateAdd("m", -num, Now()))
    dtmMonthName = MonthName(dtmMonth)
    dtmYear = Year(DateAdd("m", -num, Now()))
    Response.Write dtmMonthName & " " & dtmYear & ":<br/>"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT Count(ID) AS Total FROM Userstats WHERE DatePart('yyyy',[Dato]) = " & dtmYear & " AND DatePart('m',[Dato]) = " & dtmMonth  & ";"
    rs.Open(strSQL), strConnect, 1
    Response.write rs("Total") & "<br/><br/>"
next

Er der nogen der har en ide om man kan lave dette i et db kald eller en anden metode der kan gøre det hurtigere...?

Hilsen
Claus