Réponse acceptée !
En supposant que ta BD (repertoire) est cette structure : id | nom | tel

Tout d'abord, utiliser un datareport pour remplir ton combo, c'est pas ce qu'il y a de mieu. Je vai te proposer une solution plus bas.
N'oublie pas de rajouter cette reference : Microsoft DAO 3.6 Object Library

Option Explicit
Dim Bd As Database 'Defini la base de données
Dim Table1 As Recordset 'Defini une table
Dim Requette As String 'Variable qui contiendra une requette
Dim Trequette As Recordset 'Table qui sera le resultat d'une requete

Private Sub Form_Load()

    'Initialisation de la base de données
    Set Bd = OpenDatabase(App.Path & "\nom_bd.mdb")

    'declaration de la table repertoire
    Set Table1 = Bd.OpenRecordset("repertoire", dbOpenDynaset)

    'on remplis la combo
    If Table1.EOF = True Then 'EOF = End Of File (fin de la table)
        MsgBox "La table repertoire est vide !"
    Else
        Do While Table1.EOF = False 'Tant qu'on est pas arrivé à la fin de la table...'
            Combo1.AddItem Table1("nom") 'On implemente le combo du champ nom
            Table1.MoveNext 'Puis on passe à l'enregistrement suivant
       Loop
    End If
End Sub

Private Sub Combo1_Click()
  
    'SQl : on selectionne le champ tel de la table repertoire dont le nom est le text de la combo1
    Requette = "SELECT tel FROM repertoire WHERE nom='" & Combo1.Text & "';"
    Set Trequette = Bd.OpenRecordset(Requette, dbOpenDynaset)

    if NOT(Trequette.EOF) then
        label1.text =  Trequette("designation")
    end if

End Sub

..::DuKe::..

Réponse acceptée !
Me suis planté, remplace label1.text =  Trequette("designation") par text1.text = Trequette("tel")

Cette condition verifie s'il existe vraiment un numero de tel dans la base.
if NOT(Trequette.EOF) then ' signifie : "s'il le resultat de la requette n'est pas vide

..::DuKe::..