consultar select con un text1.text pero no puedo

tema enviado por ivon Barrios en Visual Basic 6.0
tema iniciado el 27/04/2007

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