You could use the DLookup() function....DLookup(expr, domain, [criteria])
I haven't tried this but...
Private Sub Text16_LostFocus()
me.Yourtextboxnamehere = DLookup(expr, domain, [criteria])
End Sub
if that don't work, I hope it helps point you in the right direction.
Let me know
Larry