relacionar itens de uma combobox com um label

Então;.. .tira uma duvida minha...

Eu abri a conexão uma primeira vez para carregar os dados da tabela no combo, e ficou assim:

no GENERAL (declaration) eu coloquei assim:
___________________________________
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
__________________________________
Private Sub Form_Load()

    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "SistemaTimeSheet.mdb;Jet OLEDB: Database"
    rs.Open "TAB_PROF", conn, adOpenDynamic, adLockPessimistic

cboNome.Clear 'Limpa a combo

Do

    cboNome.AddItem rs.Fields("NOME")   'inclui o dado do campo nome do recordset
    rs.MoveNext                         'move para o próximo registro

Loop While Not rs.EOF

End Sub
____________________________

Eu tenho que fechar a conexão... ou está certo do jeito que está... pois está funcionando esta parte.....

Só que o problema é o seguinte... quando eu abro o form... o combo é carregado! mas ei eu quero no combo escolher o nome da pessoa e quero que ao escolher esse nome... seja exibido em um label a área de atuação desta pessoa. Que na verdade é o que a gente está tentando fazer até agora!

Esse é o código original para TENTAR relacionar os nomes da combo com a base de dados para trazer a área de atuação para o label:

_______________________________
Private Sub cboNome_Click()

sql = "SELECT * FROM TAB_PROF WHERE NOME='" & cboNome.Text & "'"

Set Busca = rs.Open(sql, cnn, adOpenDynamic, adLockPessimistic)

If Not Busca.EOF Then
lblArea.Caption = Busca!AREA
End If


End Sub

Valeu pela sua atenção!