A family of Microsoft relational database management systems designed for ease of use.
If you want to see how to create and open a query, the following is a simple example:
Private Sub cmdMyButton_Click()
CreateAndOpenQeuryDef
End Sub
Sub CreateAndOpenQueryDef()
Dim strSQL As String
Dim strQueryDef As String
strSQL = "SELECT * FROM Employees"
strQueryDef = "sel_Employees"
'Create a new QueryDef object which can be seen and managed in the Navigation Pane.
CurrentDb.CreateQueryDef strQueryDef, strSQL
'Open the new QueryDef
DoCmd.OpenQuery strQueryDef, acViewNormal
End Sub