Hi,

How do I add another query to the code? I have a search button and I want to be able to search 3 queries at one time.

Private Sub CmdSearch_Click()
DoCmd.OpenQuery "QryResults", acViewNormal, acReadOnly
End Sub

Thank you
Elaine

simple;

Private Sub CmdSearch_Click()
DoCmd.OpenQuery "query1", acViewNormal, acReadOnly
DoCmd.OpenQuery "query2", acViewNormal, acReadOnly
DoCmd.OpenQuery "query3", acViewNormal, acReadOnly
End Sub