Detectar copia en tabla access

[PETTETE]

Hola buenas,
estoy intentando hacer un código peor no me sale..
Quiero hacer un código que detecte duplicidades en los códigos de centro de una tabla access.

He conseguido leer toda la columna de los códigos pero no se como hacer que detecte las duplicidades.

Os comparto el código par aque le echeis un vistazo y me orienteis en lo que teng que hacer.

Código [Seleccionar] Expandir


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


[PETTETE]

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 [Seleccionar] Expandir


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