Consulta Sobre 2 combobox Cargados desde una misma tabla

[CEB_ROJO]

Erick21, muchisimas gracias por el aguante y la buena predisposición, pero después de pensar bastante, encontré como solucionarlo. La verdad me tenía obnubilado y no razonaba correctamente.
Aquí dejo el pequeño código por si alguien tiene un inconveniente similar y tal vez le sirva de alguna ayuda.
El tema es muy sencillo, generé una búsqueda por el valor numérico que contiene el combo e indiqué el DisplayMember del otro combo sea la Descripción.

Public Sub CargaComboMovDiario_CodProducto()
Dim DaProd As SqlDataAdapter
Dim DsProd As DataSet
Dim CselProd As String = "SELECT * FROM tbl_Productos WHERE Id_Producto =" & Val(frmMovimientoDiario.cmbCodProducto.Text)
SistMoviClientesConect = New SqlConnection(Cs)
DaProd = New SqlDataAdapter(CselProd, SistMoviClientesConect)
DsProd = New DataSet
DsProd.Clear()
DaProd.Fill(DsProd, "tbl_Productos")
Try
With frmMovimientoDiario
.cmbProducto.DataSource = DsProd.Tables(0)
.cmbProducto.DisplayMember = DsProd.Tables("tbl_Productos").Columns(1).ToString
End With
Catch ex As Exception
MessageBox.Show("Error " & Err.Number.ToString & vbCrLf & ex.Message)
End Try
SistMoviClientesConect.Close()
End Sub