Visual Basic.NET - necesito ayuda sobre...........

tengo este codigo el cual en un listbox2 me aparece la descripcion con la consulta que realizo

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
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 descripcion from componente,tamaño_elemento,cpu where inventario='" + ListBox1.Text + "' and clave_componente=clave_tipo_h_s_carac_tam and cpu.clave_cpu=componente.clave_cpu", conexion)
da.Fill(ds, "al")

Me.listbox2.DataSource = ds.Tables("Al")
Me.listbox2.DisplayMember = "descripcion"

ahora quiero eliminar pero no me sale como le ago realizo el siguiente codigo pero no sale en que estoy mal

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("delete from componente where clave_componente in (select clave_tipo_h_s_carac_tam from tamaño_elemento,caracteristica_elemento,tipo_elemento,cpu where clave_tipo_h_s_carac_tam=clave_componente and clave_tamaño=clave_tipo_h_s_caracteristica and clave_tipo_h_s_carac=tipo_elemento.clave_tipo_h_s and cpu.clave_cpu=componente.clave_cpu and inventario='" + ComboBox1.Text + "')", conexion)
da.Fill(ds, "al")
Me.listbox2.DataSource = ds.Tables("Al")
Me.listbox2.DisplayMember = "clave_componente"

Por qué no utilizas un SQLCommand para ejecutar el delete? Así:

Dim cmd As System.Data.SqlClient.SqlCommand

cmd = New System.Data.SqlClient.SqlCommand
cmd.Connection = conexion
cmd.CommandText = <tusentenciadeDELETE>
cmd.ExecuteNonQuery