tengo este codigo, lo que quiero es hacer una consulta de la nota que yo agregue en el text.text y con el boton hacer la busqueda y mostrarmela en un datagrid ...peeeeroooo cuando pongo el text1directo o con una variable en el select me dice que no coinciden los tipos de datos en la expresion de criterios... solo lo puedo hacer asi como en el codigo que copie.... escribiendo en el codigo el numero de nota que quiero consultar...
que estoy haciendo mal.. ya llevo 3 dias y no encuentro la solucion....
Private Sub Command1_Click()
MiConexion.CursorLocation = adUseClient
Set MiRecordset = New ADODB.Recordset
Dim buscar As Integer
buscar = Val(Text1.Text)
MiRecordset.Open "select piezas, producto2, total from notas_detalle where notanumero = 150 ", MiConexion, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = MiRecordset