erro de data

estou com um problema crie uma tabela de consulta de um db o filtro é por data dai eu digito no 20/10/2007 26/10/2007

e ele responde

20/10/2007 ........

20/10/2007 ........

23/10/2007 ........

23/10/2007 ........

"23/11/2007 ........"

"24/11/2007 ........"

26/10/2007 .........

26/10/2007 .........

o codigo é o seguinte

ASP

Dim objConn, objRs, strQuery, strConnection, id, ordem, cod, nota, peso, codgrupom, emissao, vencimento, valor, totalpago nota = Request.QueryString("nota")

peso = Request.QueryString("peso")

codgrupo = Request.QueryString("codgrupo")

codforn = Request.QueryString("codforn")

emissao = Request.QueryString("emissao")

vencimento = Request.QueryString("vencimento")

valor = Request.QueryString("valor")

totalpago = Request.QueryString("totalpago")

id = Request.QueryString("radio")

D1 = Request.QueryString("D1")

'Conectando com o banco de dados contato.mdb

Set objConn =  Server.CreateObject("ADODB.Connection")

objConn.Open "DBQ=" & "d:weblocaluserarrozvivamariabancocontato.mdb" & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

if codgrupo <> "" and emissao <> "" and vencimento <> "" then

strQuery = "SELECT * FROM pg where codgrupo = '"&codgrupo&"' and (vecimento = '"&emissao&"' or vecimento > '"&emissao&"' and vecimento < '"&vencimento&"' or vecimento = '"&vencimento&"')ORDER BY vecimento asc"

'Response.Write(strQuery) : Response.End()

elseif codforn <> "" and emissao <> "" and vencimento <> "" then

strQuery = "SELECT * FROM pg where codfornecedor = '"&codforn&"' and (vecimento = '"&emissao&"' or vecimento > '"&emissao&"' and vecimento < '"&vencimento&"' or vecimento = '"&vencimento&"') ORDER BY vecimento asc"

'Response.Write(strQuery) : Response.End()

elseif emissao <> "" and vencimento <> "" then

strQuery = "SELECT * FROM pg where vecimento = '"&emissao&"' or vecimento = '"&vencimento&"' or vecimento > '"&emissao&"' and vecimento < '"&vencimento&"' ORDER BY vecimento asc"

'Response.Write(strQuery) : Response.End()

Set ObjRs = objConn.Execute(strQuery)

acho que os campos emissao e vecimento tem que ser tratados como data mas nao sei como faz isso

valeu odir