try this
For index = 0 To cmbDistibuter.Items.Count - 1
cmbDistibuter.SelectedIndex = index
Dim dr As DataRowView = TryCast(Me.BindingContext(cmbDistibuter.DataSource).Current, DataRowView)
If dr(1).ToString() = "your value" Then
Exit For
End If
Next