[Resolvido]Pegar valor de uma tabela

Pessoal

estou com uma duvida simples que é a seguinte...

preciso saber como que eu faço para que o nome(caption) de um Rótulo, seja o valor de uma tabela chamada tblusuarioatual....

exemplo...

na tabela tem "Adriano Rocha"
eu preciso que a função caption do rotulo receba "Adriano Rocha"....

obrigado

Me.Rótulo.Caption=Me.SuaCaixaTexto.Value

ou por dlookup

Me.Rótulo.Caption=DLookup("seuCampo", "suatabela","seucampochaveprimaria = " & Me.suacaixatextoChaveprimaria)

Consegui aqui da seguinte maneira:

Dim DB As DAO.Database
Dim Rs1 As DAO.Recordset
Set DB = CurrentDb()

Set Rs1 = DB.OpenRecordset("SELECT * from TblUsuarioAtual")


Obrigado pelo retorno