' Set the location and type of attached data
Set dbs = OpenDatabase(dbwhere, False, False, "dBASE iv;") ' Set the recordset to the dBase file Set rsu = dbs.OpenRecordset("winCat", dbOpenTable) ' Sets the recordset to the Access table Set Rs = db2.OpenRecordset("AddCat", dbOpenTable) Do While Not Rs.EOF ' Open the recordset rsu.AddNew ' Add a new record For i = 0 To 1 ' Loop through each field rsu.Fields(i) = Rs.Fields(i) Next Rs.MoveNext ' Go on to the next record Loop |