Set RS = BD.OpenRecordset("Select * from Viat where (Viat.Folio = '" & tFolio & "')", dbOpenDynaset, dbOptimistic)
deberais checar la sintaxis
deberias poner ....
Viat.Folio = '" & tFolio & "' esto sin parentecis ...
checa que el campo "Folio" de la tabla "Viat" sea del mismo tipo que
el de "tFolio"...
espero qeu te sirva de algo ok bueno nos vmeos... suerte
....rahd RR