Mettre le resultat d'une requete dans un label vba

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