sigo sin poder hacer la consulta

tema enviado por Bombon en Visual Basic 6.0
tema iniciado el 28/04/2007

sigo sin poder hacer la consulta desde un combo o un textbox.. solo la consigo escribiendo directamente en el codigo la nota que quiero consultar..

aki mando otro codigo .. asi lo puedo ejecutar sin problema y me hace la consulta,, pero sigan leyendo y encontraran la duda..

Dim Ruta As String

Dim MiConexion As ADODB.Connection
Dim MiRecordSet As ADODB.Recordset

Private Sub buscar_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 = 163 ", MiConexion, adOpenDynamic, adLockOptimistic


'si yo pongo la variable buscar, o directamente text1.text donde esta el 163 no puedo hacer la consulta , estuve leyendo que unas comillas simples son para campos string y van junto con LIKE, y el signo = igual cuando es numerico, pero e cambiado de mil formas para poder meter la variable y nada.. no consigo nada alguien me puede ayudar..  espero que me den una orientada gracias


Set DataGrid1.DataSource = MiRecordSet

End Sub

Private Sub Form_Load()
Ruta = App.Path & "\inventario.mdb"
Set MiConexion = New ADODB.Connection
MiConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ruta & ";Persist Security Info=False"
MiConexion.CursorLocation = adUseClient
MiConexion.Open