Ex8: VBA - Delete a query using DAO

Delete a query programmatically using DAO in VBA

Option Compare Database
Option Explicit

'Constants for examining how a field is indexed.
Private Const intcIndexNone As Integer = 0
Private Const intcIndexGeneral As Integer = 1
Private Const intcIndexUnique As Integer = 3
Private Const intcIndexPrimary As Integer = 7Function DeleteQueryDAO()

    DBEngine(0)(0).QueryDefs.Delete "qryDaoBooking"
End Function