[Resolvido] Consulta não retornar dados...

Pessoal,

estou recorrendo a ajuda de vocês pois sinceramente não estou achando o erro...

O código abaixo é para filtrar informações conforme os dados informados, porém quando seleciono a condição do "cboCidade", exibe a minha mensagem de erro personalizada, onde informa que não existe registros. Porém, quando vou consultar o banco de dados (access) existem sim dados gravados.

Existe algum erro ?

'Calcula a data de hoje
Ano = Year(Now())

	Query = "SELECT * FROM DadosPessoais " & _
 "WHERE (CargoPretendido = '"& Request.Form("cboCargo") &"') " & _
 "AND ((YEAR(DATE()) - MID(DATANASC, 7, 4)) BETWEEN " & Request.Form("cboFaixa1") & " AND " & Request.Form("cboFaixa2") & ") "

	if (Request.Form("cboCidade") <> "0") then
 Query = Query & "AND (Cidade LIKE '" & Request.Form("cboCidade")&"') "
	end if

	if (Request.Form("cboSexo") <> "TODOS") then
 Query = Query & " AND (SEXO = '" & Request.Form("cboSexo") & "')"
	end if

	Query = Query & " ORDER BY NOME"

	RS.Open Query, DB

	'Testa se existem registros com as caracteristicas especificadas
	if RS.BOF and RS.EOF then
 Response.redirect "busca_semregistro.asp"
	end if