Como deletar registros duplicados na tabela ?

Geronimo, obrigado pela força ! Consegui de outra maneira veja:

'---------------------------------------------------
'Data8 é do tipo table (tabela)
'Se existirem registro duplicados dentro da
'tabela, mando deletar
'---------------------------------------------------
Data8.DatabaseName = vbancoc 'Abro o banco C:PRFOLLOWUPFOLLOWUP.MDB
Data8.RecordSource = "carrinho" 'Seleciono os dados da tabela
Data8.Refresh 'atualizo a tabela
Data8.Recordset.Index = "estoque" 'indexo por estoque

Do While Not Data8.Recordset.EOF
'Se o estoque for igual a variavel, então esta duplicado
'deleto e vou para o próximo registro
   If Data8.Recordset!estoque = strCodigo Then
      'MsgBox Data8.Recordset!estoque & "Codigo duplicado!"
      Data8.Recordset.Delete
      Data8.Recordset.MoveNext
   End If
   strCodigo = Data8.Recordset!estoque
   Data8.Recordset.MoveNext
Loop

Data8.Refresh
Data8.Database.Close