Llenar Listbox con datos de tabla en Mysql

[ncmaster]

Espero que te sirva o por lo menos como referencia.

Listbox.Items.Clear()
Dim cmd As New MySqlCommand("SELECT nombre_prod FROM productos ORDER BY nombre_prod", conexion)
If Not conexion Is Nothing Then conexion.Close()
conexion.Open()
lectura = cmd.ExecuteReader
While lectura.Read()
Listbox.Items.Add(CStr(lectura("nombre_prod")))
End While
conexion.Close()