Enlazar un Combobox con otro Combobox

[Aquaventus]

Creo que ya sé por donde viene... creo que falto validar alguito :

Código vb:

If cboproducto.SelectedIndex > 0 Then
 
Dim ds As New DataSet
        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(ds,"Serial")
        conexion.Close()
        cboserial.DataSource = ds.Tables(0)
        cboserial.DisplayMember = "serial"
        cboserial.ValueMember = "serial"
 
End If