create query as sql access vba
Sub CreateQuery()
 
    Dim db      As DAO.Database
    Dim qDef    As DAO.QueryDef
 
    Set db = CurrentDb
    Set qDef = db.CreateQueryDef("MyQuery")
    qDef.SQL = "SELECT * FROM Vitoshacademy"
    qDef.Close
    db.Close
    Set qDef = Nothing
    Set db = Nothing
    Application.RefreshDatabaseWindow
 
End Sub
