Já está a funcionar, mas acontece que nos registos já existentes na tabela proncipal, não consigo fazer o display na combo, exemplo a seguir:

 

Public Sub DisplayCursos(myRs As Recordset)
With myRs
If .BOF = True And .EOF = True Then Exit Sub

    txtCod_Curso.Text = !Cod_Curso
    txtDesignação.Text = !Designação
    txtArea_Proponente.Text = !Area_Proponente
    CboEntidades.Text = !Entidade_Formadora
End With
End Sub

 

NOTA: CboEntidades é a Combo

 

Como resolvo isto?

 

Obrigado

cara se vc esta abrindo todos registros tenta

set cboEntidades.DataSource= myRs

cboEntidades.DataField= "Entidade_Formadora