Visual Basic.NET - necesito ayuda!!!!!!!!

tengo este codigo el cual es una consulta sencilla y me muestra en el combobox2
todos los inventario que tengo

Dim conexion As SqlConnection
Dim ds As New DataSet
conexion = New SqlConnection
conexion.ConnectionString = "integrated security=SSPI; server=(local); database=inventario;"
Dim da As New SqlDataAdapter("select * from cpu", conexion)
da.Fill(ds, "al")

Me.ComboBox2.DataSource = ds.Tables("Al")
Me.ComboBox2.DisplayMember = "inventario"
Me.ComboBox2.ValueMember = "clave_cpu"

ahora lo que pasa es quiero hacer lo mismo pero en la consulta de la siguiente forma
quiero que me seleccione los componente de la tabla comp donde el inventario= a lo tenga un listbox

Dim conexion As SqlConnection
Dim ds As New DataSet
conexion = New SqlConnection
conexion.ConnectionString = "integrated security=SSPI; server=(local); database=inventario;"
Dim da As New SqlDataAdapter("select componente from comp where inventario=listbox1.text", conexion)
da.Fill(ds, "al")

Me.ComboBox2.DataSource = ds.Tables("Al")
Me.ComboBox2.DisplayMember = "inventario"
Me.ComboBox2.ValueMember = "clave_cpu"

creo que lo que tienes mal es la composición de la select. Prueba con:

Dim da As New SqlDataAdapter("select componente from comp where inventario= ' "+listbox1.text+"' ", conexion)

Dependiendo de si el campo inventario es numerico o alfanumerico, debes poner comilla simple o no, pero en cualquier caso debe formar la cadena sacando fuera de las comillas dobles el texto listbox1.text.

Espero haber entendido tu problema y que esta sea la solución.

un saludo,

hola necesito ayuda por favor
necesito hacer un inventario super sencillo con manejo de tablas en access
Que tenga opcion para introducir algo , sacar y ver el inventario general

Besitos