mostrar datos según selección

[Aquaventus]

Hombre solucionado tu problema! mira has estos cambios!

en "cargar_formulario_Productos" esto

Código vb:

cmd.Connection = conexion
        cmd.CommandText = "select Producto from Productos where plu = " & fam & " ORDER BY Orden ASC"
 
        adapta.SelectCommand = cmd
        adapta.Fill(undataset, "Productos")
 

y en "cargar_formulario_familias" esto :

Código vb:

Dim nuevobotonProd As New Button
            nuevobotonProd.BackColor = Color.Khaki
            'Agrego esta propiedad para darle el nombre al boton
            nuevobotonProd.Name = undataset.Tables("FamiliasProducto").Rows(i).Item(0).ToString()
            nuevobotonProd.Location = New Point(x, y)
            nuevobotonProd.Size = New Size(altoBoton, anchoBoton)
            nuevobotonProd.Text = undataset.Tables("FamiliasProducto").Rows(i).Item(1).ToString()
 
            Me.Controls.Add(nuevobotonProd)