Hombre solucionado tu problema! mira has estos cambios!
en "cargar_formulario_Productos" esto
Código vb:
Ver originalcmd.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:
Ver originalDim 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)