If you're only adding records here, bring in an empty recordset by changing your source as follows:
gstrSQL = "Select * From Batch Where 1=0"
This will bring in an empty recordset with all the properties of the source table.
HTH
>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,