Visual Basic - leer variable externa con adodc

tengo este codigo

dim valor as string
valor = dataprod.text
adodcventas.recordsource ="select * from productoventa where idproducto = " & valor & " "
adodcventas.recordsource ="select * from productoventa where idproducto =
" &dataprod.text & " "

donde :
idproducto es un nombre(no es entero heeee!!) , por lo cual declaro a valor como string
ya intente de todo pero no mas no sale!!!!!!!!!!!!
solo estas sentencias de sql me salen con enteros (como id_venta, id_gasto, etc) pero no con strings que hago, por favor ayudeneme!!!

Si acaso idproducto es tipo texto creo que el recordsource debería ser...:

adodcventas.recordsource ="select * from productoventa where idproducto = '" & valor & "'"
adodcventas.recordsource ="select * from productoventa where idproducto =
'" &dataprod.text & "'"

O sea separado entre apóstofres.... ' '