Visual Basic - ayuda urgente!!!!! flexgrid

hola a todos!!!!!
bueno mi problema es ke tengo un formulario ke tiene un flexgrid y no c porke no me funciona, lo ke estoy tratando de hacer es llamar ciertos datos de mi base (hecha en access) por medio de instruccion SQL, la intruccion deve cumplir con una peticion ke se introduce en un textbox, pero no c porke no me funciona...
les mando el codigo para ke lo rebicen y me expliken el problema o si me pueden enviar un ejemplito c los voy a agradecer mucho...
ok aki esta el codigo:

Private Sub FlexGrid1_Click()
Dim y As Integer
'borro msflexgrid'
FlexGrid1.Clear
'encabezado de columnas'
FlexGrid1.Cols = 5
FlexGrid1.ColWidth(0) = 0
FlexGrid1.Col = 1
FlexGrid1.Row = 0
FlexGrid1.ColWidth(1) = 1200
FlexGrid1.Text = "Cantidad"
FlexGrid1.Col = 2
FlexGrid1.Row = 0
FlexGrid1.ColWidth(2) = 1500
FlexGrid1.Text = "Descripcion"
FlexGrid1.Col = 3
FlexGrid1.Row = 0
FlexGrid1.ColWidth(3) = 2000
FlexGrid1.Text = "Precio Unitario"
FlexGrid1.Col = 4
FlexGrid1.Row = 0
FlexGrid1.ColWidth(4) = 1500
FlexGrid1.Text = "Importe"
y = 1

Dim SQL As String
Text1 = ""
SQL = "Select inventario.nombre, inventario.preciounitario From nventario where inventario.idproducto=text1"
Data1.RecordSource = SQL
Data1.Refresh

FlexGrid1.Refresh
FlexGrid1.Visible = True

End Sub

bueno, muchas gracias por su ayuda y espero su respuesta

creo q el problema es esta en la consulta y te debería quedar asi

SQL = "Select inventario.nombre, inventario.preciounitario From nventario where inventario.idproducto=' " & text1 & " ' "

pruebale y me avisas

Saludos NOCTURNO

gracias NOCTURNO
pero ahora lo ke pasa es ke no me muestra el resultado de la buskeda en el flexgrid, si me muestra los encabezados pero nada mas, de la buskeda nada, me podrias decir el porke....
bueno muchas gracias por tu ayuda.....
atentamente
mechita

Hola

mira aqui te envio el codigo ya lo prove y funciona solo tienes que adaptarlo para tu aplicacion.
Otra cosa que tienes que hacer es tener relacionado el flexgrid en el campo datasource con el data y listo

Private Sub FlexGrid1_Click()
FlexGrid1.Clear
Dim SQL As String
Text1 = ""
SQL = "Select title,isbn From titles"
Data1.RecordSource = SQL
Data1.Refresh

Dim y As Integer
'borro msflexgrid'

'encabezado de columnas'
FlexGrid1.Cols = 3
FlexGrid1.ColWidth(0) = 0
FlexGrid1.Col = 1
FlexGrid1.Row = 0
FlexGrid1.ColWidth(1) = 1200
FlexGrid1.Text = "Titulo"
FlexGrid1.Col = 2
FlexGrid1.Row = 0
FlexGrid1.ColWidth(2) = 1500
FlexGrid1.Text = "ISBN"
y = 1

FlexGrid1.Refresh
FlexGrid1.Visible = True

End Sub

Sin te funciona me avisas

Saludos NOCTURNO

gracias de nuevo NOCTURNO

gracias de nuevo NOCTURNO
pero ahora mi problema es el siguiente.
no me acepta la instruccion SQL con el textbox, recuerdas esa parte, en donde poniendo un numero en el textbot, ese numero lo iba a ir a buscar a la base y en el felx me iba a desplegar lo ke encontrara en ese registro
pues no lo hace y no c porke, me podrias explicar el porke, te envio de nuevo el codigo para ke lo chekes OK...

Private Sub FlexGrid1_Click()

FlexGrid1.Clear
Dim SQL As String
Text1 = ""
SQL = "Select nombre,preciounitario From inventario"
Data1.RecordSource = SQL
Data1.Refresh

Dim y As Integer
'borro msflexgrid'

'encabezado de columnas'
FlexGrid1.Cols = 5
FlexGrid1.ColWidth(0) = 0
FlexGrid1.Col = 1
FlexGrid1.Row = 0
FlexGrid1.ColWidth(1) = 1200
FlexGrid1.Text = "Cantidad"
FlexGrid1.Col = 2
FlexGrid1.Row = 0
FlexGrid1.ColWidth(2) = 1500
FlexGrid1.Text = "Descripcion"
FlexGrid1.Col = 3
FlexGrid1.Row = 0
FlexGrid1.ColWidth(3) = 2000
FlexGrid1.Text = "Precio Unitario"
FlexGrid1.Col = 4
FlexGrid1.Row = 0
FlexGrid1.ColWidth(4) = 1500
FlexGrid1.Text = "Importe"
y = 1

FlexGrid1.Refresh
FlexGrid1.Visible = True

End Sub

GRACIAS POR TU AYUDA...
atentamente
MECHITA =)

tu sentencia sql deberia quedar asi:

sql=SQL = "Select campo1,campo2,campo3,campo4 From inventario where campo_busqueda=" & objeto_texbox

Otra cosa que me olvidaba, si el campo por el cual vas a buscar es de tipo varchar, debes añadirle apostrofes ( ' ) a la sentencia asi:

sql=SQL = "Select campo1,campo2,campo3,campo4 From inventario where campo_busqueda=' " & objeto_texbox & "' "

bueno espero que te funcione, sino me avisas o me escribes a mi correo para responderete mas rapido

SALUDOS NOCTURNO