DSNewCustomers = ONewCustomer.GetAllNewCustomers DSCustomers = Me.OCustomerMaster.GetEmptyDataSet(DSCustomers, "RM00101") Me.OCustomerMaster.MoveAllRows(ONewCustomer, "Customer", "RM00101") 'This works the data has been moved to DSCustomers from DsNewCustomers MsgBox(DSCustomers.HasChanges) ' FALSE ' I am guessing that this is why the save returns good but nothing is saved Dim result As OakLeaf.MM.Main.Business.mmSaveDataResult = OCustomerMaster.SaveDataSet(DSCustomers, "RM00101", "TEST") MsgBox("Result = " & result) 'Result = 2 which is success however nothing is saved to new table probably because it does not know there are changes?