I know I am busting in here but I think you need to look at the following line and make sure the "ID = " is named the same as the field in the database, from the appearance of things it might be [Customer ID]
DoCmd.OpenForm "Current_Custom er_Data", , , "[Customer ID]
= " & Me.lstSearchRes ults.Column(0)
See where I am going this might just resolve your issue.
DoCmd.OpenForm "Current_Custom er_Data", , , "[Customer ID]
= " & Me.lstSearchRes ults.Column(0)
See where I am going this might just resolve your issue.
Comment