[Resolvido]referenciar registro da tabela no campo texto no formulario

tenho uma tabela que guarda somente 1 registro, o usuário que está logado.

para eu pegar informações dessa tabela e coloca-lo em 2 campos textos, faço o seguinte codigo no evento carregar formulario

Dim strSQL As String, rstTemp As DAO.Recordset
strSQL = "SELECT * FROM tbacesso"
Set rstTemp = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
If Not rstTemp.EOF Then
txtteste = rstTemp("codigo")
txtidfuncional = rstTemp("idfuncional")
rstTemp.Close
End If

funciona, mas existe uma forma mais simplificada que executa a mesma função?

me.txtteste = Dlookup ("NomeDoCampo","NomeTabela")

Ps. No caso do campo não ser acoplado e ter apenas um nome na tabela caso tenha mais de um nome de usuário acrescente critério na função Dlookup.

me.txtteste = Dlookup ("NomeDoCampo","NomeTabela","Critério =" & xxxxx")

obrigado amigo

O Fórum agradece o retorno