Run-time Error: An arguement topdate function was invalid. The field name must be provided as a string value in quotation marks.
I have never got this before. I have this same code on other forms, but using other tables and it works just fine.
Private Sub lstSearch_AfterUpdate()
Dim rs As...
Okay, fixed it... The form property Data entry was clicked Yes and that is why it would not return the value on the form.
I am so sorry for wasting your time on this one. god I make some stupid mistakes.
Thank you for all your time and effort.