Visual Basic - NO COINCIDEN LOS TIPOS DE DATOS EN LA EXPRESION DE CRITERIOS

Hola amigos, tengo el siguiente codigo...
cod = InputBox("Ingrese la cedula a revisar", "Generador de Informes :::S.R.E.S:::")
temp.Close
Set DataReport1.DataSource = Nothing
consulta = "select * from registro where cedul=" & cod
temp.Open consulta, base, adOpenStatic, adLockReadOnly
Set DataReport1.DataSource = temp
DataReport1.Show

y me aparece el error de "no coinciden los tipos de datos en la expresion de criterios"
he intentado de todo y nada.

el error esta en esta cadena:

temp.Open consulta, base, adOpenStatic, adLockReadOnly

si hago la consulta asi funciona perfectamente:
consulta = "select * from registro "

Graciaas

Para mi el error esta en Cod, por como va el codigo parace que Cod debe ser numerico, por si acaso remarca el numerico con un CInteger(cod), o clong, o cdbl, segun corresponda, si Cod es alfabetico añade comillas " ' "

Hola amigo, ya asigne Dim cod As Integer, pero sale desbordamiento, y si lo pongo en long, sale el error anterior. gracias

Si el campo cedul es de tipo numerico entonces comprueba que se hayan tecleado solo numeros en la variable nod

Si el campo cedul es de tipo string entonces encierra entre comillas el valor de nod
(como te dijo @pedro luis)