Splitte en dato der står i tekstformat

jeg har en db med en dato i tekst format a la 2002-10-09.

Disse datoer skal jeg have skrevet ud på en side men kun de entries hvor måneden er lig med eksempelvis 10.

Mit problem er så hvordan isolerer jeg måneden i min tekst dato... Min kode ser således ud:

<%
mdr1 = Month(Date)
if mdr1<10 then
mdr1 = "0" & mdr1
end if
dag1 = Day(Date)
if dag1<10 then
dag1 = "0" & dag1
end if

SQL2= "SELECT * FROM arrangementer where Godkendt = True  And Start < '"&dato2&"' Order by ArrDato "
Set RS2 = Conn.execute(SQL2)%>

her er det så jeg løber tør :-)