Enlazar un Combobox con otro Combobox

[Aquaventus]

Hola DavidNovato,debiste haberlo dicho desde el principio.... yo pensé que estabas relacionando tablas, cuando en realidad es 1 solo... Aunque en realidad está mal modelado, no puedo hacer más ya que es "tu lógica", pero ahi vamos :
En el combo producto que cargas en el load del formulario debe ser así

Código vb:

Dim dt As New DataTable
        Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
        Dim SelectedValue As String = "SELECT  ID_producto FROM producto" 'consulta a la tabla
        Dim comando As New MySqlCommand(SelectedValue, conexion)
        Dim adap As New MySqlDataAdapter(comando)
 
        conexion.Open()
        adap.Fill(dt)
        conexion.Close()
 
        cboProducto.DataSource = dt
        cboProducto.DisplayMember = "ID_producto"
        cboProducto.ValueMember = "ID_producto"
        cboProducto.SelectedIndex = -1
 

Y en el evento selectedindexchanged de tu combo producto :

Código vb:

Private Sub cboproducto_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboproducto.SelectedIndexChanged
 
        Dim dt As New DataTable
        Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
        Dim SelectedValue As String = "SELECT  serial FROM producto where Id_producto=" + cboproducto.SelectedValue.ToString  'consulta a la tabla"
        Dim comando As New MySqlCommand(SelectedValue, conexion)
        Dim adap As New MySqlDataAdapter(comando)
 
        conexion.Open()
        adap.Fill(dt)
        conexion.Close()
 
        cboserial.DataSource = dt
        cboserial.DisplayMember = "serial"
        cboserial.ValueMember = "serial"
    End Sub
End Class
 

Prueba y nos comentas! Saludos!.