Как игнорировать сохранение дубликатов записей перед вставкой в базу данных и продолжать сохранять другие неповторяющиеся записи с помощью VB.NET-что?

---

Я должен импортировать или копировать записи из одной базы данных в другую. Моя проблема заключается в том, что он постоянно вставляет записи, даже если они уже существуют. Я хочу контролировать вставку дубликатов записей. Я хочу, чтобы они игнорировались и вставлялись только те записи, которые не существуют в базе данных. Любое предложение или изменение в моем коде высоко ценится. Спасибо.

Что я уже пробовал:

Dim con1 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= database1.accdb")
Dim con2 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= database2.accdb")

con2.Open()
Dim CompQuery As String = "SELECT COUNT(*) FROM sampletable WHERE FirstName = @FirstName AND LastName = @LastName"
Dim compCommand As OleDbCommand = New OleDbCommand(CompQuery, con2)
compCommand.Parameters.AddWithValue("@FirstName", "FirstName")
compCommand.Parameters.AddWithValue("@LastName", "LastName")

If Convert.ToInt32(compCommand.ExecuteScalar()) > 0 Then
    'ignoring duplicate entries msgbox("Some records fail to save because it would create duplicate entries!")
    Exit Sub
Else

    'Create the data adapter with a SelectCommand using the first connection.
    Dim da As New OleDb.OleDbDataAdapter("SELECT Fullname, FirstName FROM table1 ", con1)
    'Add the InsertCommand with the second connection. 
    da.InsertCommand = New OleDb.OleDbCommand("INSERT INTO sampletable (Fullname, FirstName) VALUES (@FirstName, @LastName)", con2)
    'Add the insert parameters.                                                                                                 
    da.InsertCommand.Parameters.Add("@Fullname", OleDb.OleDbType.VarChar, 50, "FirstName")
    da.InsertCommand.Parameters.Add("@FirstName", OleDb.OleDbType.VarChar, 50, "LastName")
               'Keep the records in a state where they can be inserted into the destination table.
    da.AcceptChangesDuringFill = False
    Dim dt As New DataTable
    'Get the data from the source database.
    da.Fill(dt)
    'Save the data to the destination database.
    da.Update(dt)
    MsgBox("Data Added!")

    con1.Dispose()
    con2.Dispose()

End If

---