Visual Basic - Problema con busqueda en inputbox

Hola, tengo el siguiente codigo:
buscarentrada = InputBox("Introduce número de entrada del movimiento", "Buscar entrada")
Data1.RecordSource = "select * from movimientos where num_entrada = '" & buscarentrada & "'"
Data1.Refresh
Si el campo num_entrada es de tipo texto funciona perfectamente, pero si lo pongo numérico da error en la expresion de criterios. Necesito que
sea numérico para los listados

Quita las comillas simples
"Select ,,,,,,,,,," & Buscarentrada

Muchas gracias