Mettre le resultat d'une requete dans un label vba

Bonjour,
Comme s'est dit dans le titre, je souhaiterai mettre le résultat d'une requête dans un label. Malgré les différentes recherche sur les différents forum je n'ai pas trouver mon bonheur.
je vous met mon code si dessous, ce n'est pas le code d'un génie :p

Private Sub Label1_Click()
Set cn = CreateObject("ADODB.Connection")
    Dim rs As New ADODB.Recordset

 With cn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "P:\Vie des sites\blablabla\bliblibli\Planning nouveau\planning.accdb"
        .Open
    End With

CUID = UCase(Environ("username"))
sql = " select direction_agent from agent where cuid =""" & CUID & """;"
On Error Resume Next
cn.Execute (sql)
 
End Sub