tenta assim:
coloca nos dois combobox o itemdata assim:
CmbCodigo.ItemData(CmbCodigo.NewIndex) = Codigo (onde codigo eh o codigo do produto no bd)
CmbNome.ItemData(CmbNome.NewIndex) = Codigo (onde codigo eh o codigo do produto no bd)
Depois vc faz assim:
Private Sub CmbCodigo_Click()
CmbNome.ListIndex = CmbCodigo.ItemData(CmbCodigo.ListIndex)
End Sub
Acho q pode te ajudar a resolver o problema.