Ayuda con la instruccion UPDATE en Visual Basic 6.0

[oskar83]

Hola amigos necesito de su ayuda, estoy realizando un proyecto de visual basic con una base de datos en acces, mi problema es el siguente, cuando quiero modificar un registro de la base de datos con la instruccion UPDATE
de la siguiente forma

Set BDD = OpenDatabase("c:\control ciber\BASE.mdb")
SQL = "UPDATE computadora SET hora_salida = '" & h_salida & "' WHERE Id = '" & id1 & "' "
BDD.Execute SQL

a la hora de ejecutarlo me aparece el siguiente error

No coinciden los tipos de datos en la expresion de criterios

pero si enlugar de WHERE Id = '" & id1 & "' coloco WHERE Id = 21 funciona correctamente

Ahora bien mi pregunta es la siguiente ¿Como coloco la variable id1 que contiene un numero cualquiera en la instruccio?

Gracias de antemano por su ayuda