[VB6]evitare inserimento record doppi

[donini]

Auguri a tutto il forum
importo i dati forniti da un lettore badge in formato txt in un databese access , come posso evitare l inserimento di record doppi.
Grazie
codice per l inserimento dei dati

Private Sub AggiornaORE_Click()
Dim FileNum As Integer
    On Error GoTo fine
    FileNum = FreeFile ' ottiene un numero di file libero
    Open "C:\programmi\Kronotech\lancioni2.txt" For Input As #FileNum
    Do
        Input #FileNum, linea
        cn.Execute "INSERT INTO ore (orelav) VALUES ('" & linea & "')"
        
        

    Loop Until EOF(1) = True
 
    Close #FileNum
 
    Exit Sub
fine:
    Close #FileNum
    MsgBox Err.Description
End Sub