Recordset with Primary Key

[Adax]

Hello! I have recordset r with about 50 000 records. There are about 50%
duplicate records. I have idea to guckly removing duplicats: Next recordset
r2 with Primary Key in field "x1". When I make update r2 from r, I think, I
automtically resive records without duplicates. Unfornately, I can't make
Primary Key for field. Is it possible? How make it and how make update r2
form r? Thanks!

Dim r As ADODB.Recordset
Set r = New Recordset

For i = 1 To 3
r.Fields.Append "X" & i, adDouble, , adFldUpdatable
Next i

How to set Primary Index field(1) ("X1")

 

[UglyChicken]

 Hello!  I have recordset r with about 50 000 records. There are about 50%
duplicate records. I have idea to guckly removing duplicats: Next recordset
r2 with Primary Key in field "x1". When I make update r2 from r, I think,I
automtically resive records without duplicates. Unfornately, I can't make
Primary Key for field. Is it possible? How make it and how make update r2
form r? Thanks!

        Dim r As ADODB.Recordset
        Set r = New Recordset

            For i = 1 To 3
                r.Fields.Append "X" & i, adDouble, , adFldUpdatable
            Next i

How to set Primary  Index  field(1) ("X1")

Can you modify to some like SELECT DISTINCT <field> FROM <table>

 

[Adax]

Can you modify to some like SELECT DISTINCT <field> FROM <table>

Thanks! But I don't have the table, I have only recordset. Is it possible
without table get SELECT DISTINCT from Recordsetu?