visual basic y sql

[logan]

  ola comunidad espero q ce la pasen de pelos y puedan ayudarme

tengo un problema con mi codigo:

Private Sub Command1_Click()
Dim busqueda As String
Dim cve As Integer
busqueda = Text1.Text
Dim BDD As Database 'Objeto que manejara la base de datos
Dim TBL As Recordset 'Objeto que manejara la Tabla
Set BDD = OpenDatabase("C:\Documents and Settings\logan\Mis documentos\bd1.mdb") 'Abre la base de datos
SQL = "SELECT * FROM inventario WHERE precio=busqueda"  << he aqui el problema con la variable busqueda
Set TBL = BDD.OpenRecord set(SQL)
TBL.MoveFirst
Do Until TBL.EOF
MSFlexGrid1.Ad dItem TBL("cve_producto")
MSFlexGrid1.Ad dItem TBL("nom_producto")
TBL.MoveNext
Loop
TBL.Close
BDD.Close
End Sub
-----------------------------------------------------------
el programa realiza una busqueda dentro de 1 base de datos de acces y yo quiero que busque el valor de la variable
como se hace en php:
$busqueda =mysql_query("select * from inventario where producto like '$criterio',$conexion");

[ranefi]

Hola logan, buen día. Mira, necesito más información sobre lo que necesitas;     ¿logras realizar la conexión?     ¿Qué clase de error te aparece?     ¿Usas algún módulo para crear la conexión?     ¿Qué formato de base de datos usas? Pero para no responderte con preguntas y dejarte en las mismas te diré lo siguiente; he notado que aquí:

Código:

SQL = "SELECT * FROM inventario WHERE precio=busqueda"

... Estás incluyendo la variable busqueda dentro las comillas dobles siendo que debería estar fuera:

Código:

SQL = "SELECT * FROM inventario WHERE precio=" & busqueda

También noté lo siguiente:

Código:

busqueda =mysql_query("select * from inventario where producto like '$criterio',$conexion");

Estás incluyendo las variables $criterio y $conexion dentro de las comillas dobles. Espero y esto solucione tu problema, pero si no lo soluciona, para la próxima procura ser más explicito o publicar todo tu código. Nos vemos.