كود يضيف بيانات لكن لا يحدثها بل يكررها

هذا الكود يقوم بنسخ بيانات من جملة SQL في قاعدة بيانات ( أوراكل ) الى قاعدة بيانات ( أكسس ) على جهاز آخر ..

لكن المشكلة أنه .. يقوم بالإضافة واذا تكرر تنفيذه يقوم بالتكرار , وما أريده فقد التحديث واضافة السجلات الجديدة وليس التكرار أي عملية Append .. فما الحل ؟

Dim cnOra As OracleConnection = New OracleConnection("Data Source=prod;User Id=xxx;Password=xxx;")
Dim cnAccess As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\xxx1.mdb;User Id=admin;Password=;")

		Dim da1 As OracleDataAdapter, dt As DataTable, cmd As OleDbCommandBuilder
		Dim da2 As OleDbDataAdapter
		da1 = New OracleDataAdapter("Select  * FRom abc", cnOra)
		da1.AcceptChangesDuringFill = False
		dt = New DataTable
		da1.Fill(dt)
		da1.Dispose()

		If Not dt Is Nothing Then
			da2 = New OleDbDataAdapter("SELECT * FROM xyz", cnAccess)
			cmd = New OleDbCommandBuilder(da2)
			da2.InsertCommand = cmd.GetInsertCommand
			da2.Update(dt)
			da2.Dispose()
			cmd.Dispose()
			dt.Dispose()
		End If