Access - Nocoinciden los tipos en el criterio de busqueda

Id_Trans esta declarado en la tabla como numérico de tipo Entero y al realizar la busqueda me genera el error no coinciden los tipos en el criterio de busqueda, este codigo tiene como finalidad registrar la hora de salida del usuario del sistema . aqui esta el codigo.

Dim Dbs As Database, Rst As Recordset
Dim intReg As Integer

Set Dbs = CurrentDb



Set Rst = Dbs.OpenRecordset("Registro_usuarios", dbOpenDynaset)

intReg = Forms!UserName!TxtRegistro

Rst.FindFirst "Id_Trans=" & "'" & intReg & "'"
If Rst.NoMatch Then
MsgBox "Prueba"
Else

Rst.Edit
Rst!hora_salida = intReg
RegRst.Update

End If
Rst.Close
Set Dbs = Nothing

de antemano muchas gracias.

Si Id_Trans es numerico creo que no necsitas poner la comilla simple cuando utilizas el metodo FindFirst
ejemplo:
Rst.FindFirst "Id_Trans=" & intReg

Muchas gracias hermano tenias razon, ya funciona bien