RunQuery

Public Sub RunQuery(strSQLAction as String)
Dim qdfTemp as QueryDef
'Setta ed esegue la query

Set qdfTemp = db.CreateQueryDef("NewQuery")
With qdfTemp
.SQL = strSQLAction
.Execute
.Close
End With
' Cancella la Query

Set qdfTemp = Nothing
db.QueryDefs.Delete "NewQuery"
DoEvents
With db
.TableDefs.Refresh
.QueryDefs.Refresh
End With
End Sub
Richiede che il database sia gia aperto e settato