oDatabaseConnection = CreateObject("ADODB.Connection") oDatabaseConnection.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mypath\mymdb.mdb") oRstStores = CreateObject("ADODB.Recordset") oRstStores.ActiveConnection = oDatabaseConnection oRstStores.LockType = 3 && LockOptimistic oRstStores.Source = "stores" oRstStores.Open oRstStores.AddNew * ----- Add code to update the various fields in the stores table oRstTransactions.Fields("storename") = "mystore" oRstStores.Update oRstTransactions = CreateObject("ADODB.Recordset") oRstTransactions.ActiveConnection = oDatabaseConnection oRstTransactions.LockType = 3 && LockOptimistic oRstTransactions.Source = "transactions" oRstTransactions.Open oRstTransactions.AddNew * ---- The following line sets stk_id to be the same as stk_id from the stores record oRstTransactions.Fields("stk_id") = oRstStores.Fields("stk_id") oRstTransactions.Fields("transactiondescription") = "mytransaction" oRstTransactions.Update oRstTransactions.Close oRstStores.Close oDatabaseConnection.Close RELEASE oDatabaseConnection RELEASE oRstStores RELEASE oRstTransactionsHope this helps,