Visual Basic - select con variable

Como puedo hacer para meter una variable de visual dentro de una sentencia sql de tipo

Set consulta = bd1.Execute("Select * from Entradas where idproducto=variable_de_visual")

gracias

Si la variable es numérica:

Set consulta = bd1.Execute("Select * from Entradas where idproducto=" & variable_de_visual)

Si es alfanumérica:

Set consulta = bd1.Execute("Select * from Entradas where idproducto='" & variable_de_visual "'")