ACC: Sample Code for Running Temporary SQL Pass-Through Query

   Function ExecuteSPT (sqltext As String, connectstring As String)
 
   ' Purpose: Run a temporary pass-through query.
   ' Accepts: sqltext: SQL string to run.
   '          connectstring: Connection string, which must be at least
   '          "ODBC;".
   ' Returns: nothing.
 
   Dim mydb As Database, myq As QueryDef
   Set mydb = DBEngine.Workspaces(0).Databases(0)
 
   ' Create a temporary QueryDef object that is not saved.
   Set myq = mydb.CreateQueryDef("")
 
   ' Set the ReturnsRecords property to False in order to use the
   ' Execute method.
   myq.returnsrecords = False
 
   myq.connect = connectstring
   myq.sql = sqltext
 
   myq.Execute
   myq.Close
 
   End Function
				

   ?ExecuteSPT("sp_example","ODBC;")