Visual Basic.NET - pasar de un textBox a un listBox

Hola. Estoy haciendo una aplicación que tiene quehacer lo siguiente. Tengo un textBox en el cual escribo algo (ej: mesa) y al lado tengo un listBox en el cual me tienen que aparecer todos los registros de la base de datos que contengan la palabra mesa (ej: mesa camilla,PAMESA, ...). ¿Alguien sabe como se hace? Estoy atascado en el momento de mostrar los registros en el listBox. Un saludo

el query debe ser con LIKE

Query = "Select *from NombreTabla Where NombreCampo Like '%' +' " & textbox.text & " ' + '%' "

Nota: Ten cuidado con los ' (apostrofes) se confunden junto a las comillas

Eso lo tengo. Lo que quiero saber es como pasar esa query al listbox

dim conexion as new sqlconnection(String de conexion)
dim com as new sqlcommand(Query = "Select *from NombreTabla Where NombreCampo Like '%' +' " & textbox.text & " ' + '%' " , conexion)
dim dr as new sqldatareader (no recuerdo si lleva o no el new)
conexion.open
dr = com.executereader
do while dr.read
listbox.items.add(dr("nombrecampo"))
loop
dr.close
conexion.close

no olvides agregar las clases:

imports system.data
imports syste.data.sqlclient