I am sure there must be an easier way, but I haven't figured it out yet.

This is what I am doing now:

'Connect to the database
set gcnSPOT = New Connection

With gcnSPOT

  .Provider = gdbeJet4
  .ConnectionString = "Data Source =" & gstrSPOTDB
  .Open

End With

'Create recordset
set grsSPOTBatch = New Recordset

'Populate recordset
gstrSQL = "Select * From Batch"  

grsSPOTBatch.Open gstrSQL, gcnSPOT, adOpenKeySet, adLockOptimistic


'Create a new record
grsSPOTBatch.AddNew

'Populate the new record

for mintLoop = 0 to (grsSPOTBatch.Fields.Count-1)
    
   grsSPOTBatch.Fields.Item(mintLoop).Value = garyDataArray(mintLoop)

next

grsSPOTBatch.Update

I am basically opening a recordset, that is now getting very large with a Select * command, just so I can put new data in.

This is a MSAccess2000 database.

The garyDataArray is actually a recordset from another database (which is MSAccess97). I am trying to move all of the data from that database to gcnSPOT into identical tables.

I tried an Insert command but had errors on some of the tables because the first field is an "Autonumber" field and I want to keep the orginal number.

Any help would be appreciated.

Thanks,