come immaginavo
l'errore è dovuto dal fatto che la query non produce nessun record, di cosenguenza non puoi fare nessun tipo di posizionamento, altrimenti ti da errore...
Prima di fare qualsiasi operazione testa se ci sono record, qualcosa di simile:
codice:
If rst.Recordcount > 0 then
...fai le tue operazioni...
end if