Private Sub Command4_Click()
Dim s As String
s = DLookup("ShortName", "tblReports", "ReportID = " & lbReport.Value)
DoCmd.OpenReport s, acViewPreview
Private Sub lbReport_Click() 'Fills a txtbox you can ignore
txtReports.Value = DLookup("Description", "tblReports", "ReportID = " & lbReport.Value)
This is on a form. I have a listbox that has a nnicer looking name, Nicer meaning if I have a report called GetAllRecords it would display as: Get All Records in the listbox. I have a table that has ReportID (PK), ShortName, DisplayName, and Discription. The shortname field is name of the actual name of the report, and displayname is what you want the drop box to show.