[AccessD] Insert Into 101

As far as I understand the problem, this works ok for me.

Max

Sub AppendRecsFromQuery()
  Dim dbs As DAO.Database, rst As DAO.Recordset
  Dim sql As String, qdf As DAO.QueryDef
  Set dbs = CurrentDb
  sql = "Drop  table _TestA"
  dbs.Execute (sql)

  sql = "Create Table _TestA (FirstName text, Surname Text, PersonID long)"
  dbs.Execute (sql)

  sql = "Drop Table _TestQ"
  dbs.Execute sql

  sql = "Select firstname,surname,PersonID from mcmPeople Where PersonID <
1000"
  Set qdf = dbs.CreateQueryDef("_TestQ", sql)
  Set rst = dbs.OpenRecordset(qdf.Name, dbOpenSnapshot)
  sql = "insert into _TestA " & qdf.sql
  dbs.Execute sql

End Sub