Not accepting duplicates

[jaji2000]

I'm working on a VB program that randomly collects records from MS Access. The problem is that it keeps giving me duplicate records. How can I stop this . This is what I have so far, Please help :

Call CNN_Aud

recAudTable.Open "select * FROM T_Aud", cnnAud, adOpenKeyset, adLockOptimistic

If recAudTable.RecordCount > 0 Then
strmonth = recAudTable!Date
strmonth = Format(strmonth, "mmmm")
If strmonth = cmbMonths.Text Then
Beep
MsgBox "Already completed Aud for the month of " & "'" & cmbMonths.Text & "'"
Exit Sub
Else
cnnAud.Execute "delete * from T_Aud"
cnnAud.Execute "delete * from T_Aud_NC"
End If
End If
recAudTable.Close

recAudTable.Open "select * from T_Aud", cnnAud, adOpenKeyset, adLockOptimistic
recPERS.Open "select * from T_Crnt_PERSs", cnnAud, adOpenKeyset, adLockOptimistic

Do Until recPERS.EOF
prg_Aud.Visible = True
prg_Aud.Value = prg_Aud.Value + 1
lblStatus.Caption = "Populating Conts for " & recPERS!Name
DoEvents
recQryAud.Open "select * from q_Aud where Month= " & "'" & cmbMonths.Text _
& "'" & " and Name= " & "'" & recPERS!Name & "'", _
cnnAud, adOpenKeyset, adLockOptimistic
If Not recQryAud.EOF Then
For intCount = 1 To 5
Randomize
lngRandom = Int((Rnd * recQryAud.RecordCount) + 1) - 1
recQryAud.MoveFirst
recQryAud.Move lngRandom, 1
if recqryAud!transid =
recAudTable.AddNew
recAudTable!transid = recQryAud!transid
recAudTable!Date = recQryAud!Date
recAudTable!Time = recQryAud!Time
recAudTable!Name = recQryAud!Name
recAudTable!BUC = recQryAud!BUC
recAudTable!AcNum = recQryAud!AcNum
recAudTable!Status = recQryAud!Status
recAudTable!Ba = recQryAud!Ba
recAudTable!Pre = recQryAud!Pre
recAudTable.Update

Next intCount
End If

recQryAud.Close
recPERS.MoveNext
Loop
lblStatus.Caption = "Done populating Conts."
prg_Aud.Visible = False
recPERS.Close
recAudTable.Close

[vass0922]

try SELECT DISTINCT * FROM tablename

[jaji2000]

Thanks!!

[vass0922]

No worries, and Welcome To TechIMO