اتصال Text Box به نتیجه Query در فرم Unbound

با سلام
اساتید محترم
Query ایجاد کردم که بعد از لاگین User یک امتیاز به اون میده
ینی فقط یک عدد در فیلد Weight بمن میده
چطور میتونم یک TextBox رو در یک فرم Unbound در رویداد On Load فرمم به اون وصل کنم و اون یک مقدار رو در اون نشون بدم؟
توضیح اینکه فرم رو بنا بدلایلی نمیخوام Bound کنم و ترجیحاً نمیخوام از Subform استفاده کنم.
ضمیمه 154259

به این صورت انجامش دادم که متاسفانه با خطای parameter مواجه میشم!

Me.txtWeightUser = DLookup("Weight", "qryUserRanking", "Username=TempVars!tempUser")

ضمیمه 154260

برای اینکه کسی مجدداً به مشکل من برنخوره
مشکل این بود که از اسامی کلیدی استفاده کردم
در واقع اسم فیلدی که فراخوانی میکردم بطور مستقیم در vba قابل استفاده نبود.

Weight

1- همون کد اولی هم باید بدون مشکل کار کنه، weight از کلمات کلیدی نیست!

2- حتی اگر weight یک کلمه کلیدی بود باز هم استفاده از اون مشکلی نداره بشرطی که درون [] باشه.

3- چون شما شرط رو در خود کوئری qryUserRanking آوردین، دیگه آوردنش در dlookup بی مورد هست:

Me.txtWeightUser = DLookup("Weight", "qryUserRanking")

4- میتونین بجای ساخت کوئری و بعد استفاده از dlookup ، مستقیما با dsum محاسبه کنین (مگر این که دلیلی برای این کار داشته باشین):

Me.txtWeightUser = DSUM("Weight", "tbl.....", "Username=TempVars!tempUser")