Comparar data

Olá Pessoal ...Estou com um problema, preciso saber se tem algum cliente devendo a mensalidade do mes anterior, para isso faço o seguinte ...Sql = "Select sacado, dtprev, dtliq From movimento "Sql = Sql & "Where sacado = '" & rstClientes.Fields("cod") & "' and dtprev = " & CDate(DataTesteVct) & " and dtliq is null"rstMovimentoFiltro.Open Sql, cnn, adOpenKeyset, adLockOptimisticOnde DataTesteVct é o data do vencimento anterior e dtliq é a data do pagamento, pois bem se encontrar é porque o cliente está devendo.O problema é que sempre retorna "Eof" mesmo que dtprev seja igual a DataTesteVct e dtliq seja vazio. Dtprev e tdliq são do tipo data/hora.Alguém sabe o que está errado ?Obrigado,Fauze