¡¡ Ayudenme !! Error al llamar registro en base de datos

[NARDYSS]

Hola que tal, soy nuevamente NARDYS, lo que pasa es que estuve investigando y encontre la forma de llamar una base de datos mediante DAO.
Me fuciona bien si no utilizo un WHERE pero lo necesito ya que solamente quiero mandar llamar un registro determinado, pero me marca error.
El codigo es el siguiente:

Option Explicit
Dim BD As DAO.Database
Dim RS As DAO.Recordset

Private Sub Form_Load()
Dim tFolio As Integer

tFolio = frmReportes.Foli

Set BD = OpenDatabase("C:\Mis documentos\Sistema Viaticos\Viaticos.mdb")
Set RS = BD.OpenRecordset("Select * from Viat where (Viat.Folio = '" & tFolio & "')", dbOpenDynaset, dbOptimistic)
Llenar
etiqueta.Caption = frmReportes.Foli
End Sub

------

Me marca error con el WHERE, el error es el siguiente:
Data type mismatch in criteria expresion

Espero que puedan ayudarme, me es muy muy URGENTE!!!

Gracias