Put this SQL behind the Row Source of your Drop Down List;
Code:
SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Type)=5) AND ((MSysObjects.Flags)<>3))
ORDER BY MSysObjects.Name;
Object Type refers to the following
-32764 = Reports
-32768 = Forms
5 = Queries
6 = Tables
You would then have this code behind your button
Code:
If IsNull(Me.List1.Value) = True Then
MsgBox "Please Select a Query from the table!"
Else
DoCmd.OpenQuery Me.List1.Value, , acReadOnly
End If