Detectar copia en tabla access

Module Module1

Sub Main()

Dim stn As OleDb.OleDbConnection ' conector

Dim cmd As OleDb.OleDbCommand ' escritor

Dim lector As OleDb.OleDbDataReader ' lector

stn = New OleDb.OleDbConnection ' nuevo conector

stn.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\PEPE\Desktop\centros_correcciones.accdb") ' conexion

stn.Open() ' abrir conexion

cmd = New OleDb.OleDbCommand ' nuevo escritor

cmd.Connection = stn ' escritor conectado con conector

cmd.CommandText = "select Código_centro FROM Hoja1"

lector = cmd.ExecuteReader ' lector conectado con lector del escritor

Do While lector.Read

Console.WriteLine("{0} ", lector("Código_centro"))

Loop

Console.ReadLine()

lector.Close()

Console.WriteLine("{0} filas modificadas", cmd.ExecuteNonQuery)

Console.ReadLine()

stn.Close()

End Sub

End Module

Hola buenas,
He conseguido seleccionar la fila duplicada con un datagridview.
La cosa es que solo selecciono la fila con la fecha actual.. y me gustaía eliminar la fila con la fecha antigua..

¿algún consejo de como puedo hacerlo?

Aquí os dejo el código para que le echeis un vistazo..

Código:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim cnn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\PEPE\Desktop\centrosNavarra_correcciones.accdb")

        ' CREADA CONEXION CNN

        ' Dim da As New OleDbDataAdapter("select Código_centro, count(Código_Centro) from Hoja1  group by Código_Centro having(count(Código_Centro) >1) ", cnn)

        '  Dim da As New OleDbDataAdapter("select Código_centro from Hoja1", cnn)

        Dim da As New OleDbDataAdapter("select * from Hoja1", cnn)

 

        'CREADO ADAPTER DA, RECUPERA DATOS DEL SELECT DE LA CONEXION CNN

 

        ' EN CASO DE NO FUNCIONAR ESTE SELECT UTILIZAR EL SIMPLE CON EL FILTRO WHERE

        Dim ds As New DataSet

 

        da.Fill(ds)

 

        DataGridView1.DataSource = ds.Tables(0)

 

 

        Dim buscar As Integer = 19500101

 

        Dim numero As Integer = 1

        For Each fila As DataGridViewRow In DataGridView1.Rows

            numero += 1

            If fila.Cells("F-EFECT").Value > buscar Then

 

                fila.Selected = True

            End If

 

        Next

 

 

    End Sub

End Class