VB6で重複レコードを検出する方法は？

Question

LastNameとFirstNameがすでに存在する場合は、新しいレコードを追加してください。最後のレコードで別のファーストネームが使用されても構いません。

例：

最初のレコード

姓=バウティスタ

姓= Johnlord

番目のレコード

姓=バウティスタ

姓=アンジェロ

3番目のレコード

姓=ドミンゴ

姓=アンジェロ

4番目のレコード

姓=ドミンゴ

姓= Johnlord

SAVE！

-

最初のレコード

姓=バウティスタ

姓=アンジェロ

番目のレコード

姓=バウティスタ

姓=アンジェロ

既に存在しています！ここで

は私のコードです：

Private Sub Command2_Click() 

With Adodc1.Recordset 
If Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Then 
MsgBox "Please Update the Information Given!", vbCritical, "ASAP" 
Else 
MsgBox "Saved!", vbInformation, "Save" 
End If` 
.AddNew 
.Fields(0) = Text2.Text 
.Fields(1) = Text3.Text 
.Fields(2) = Text4.Text 
.Fields(3) = Combo1.Text 
.Fields(4) = Text5.Text 
.Fields(5) = Text6.Text` 
.Fields(6) = Text7.Text 
.Fields(7) = Text8.Text 

Frame1.Visible = False 
Text2.Text = "" 
Text3.Text = "" 
Text4.Text = "" 
Text5.Text = "" 
Text6.Text = "" 
Text7.Text = "" 
Text8.Text = "" 
Combo1.Text = "" 
End If 
End With 
End Sub 

これは私のインタフェースである：

Answer 1

Set Dict = CreateObject("Scripting.Dictionary") 
Do Until Inp.AtEndOfStream 
    On Error Resume Next 
    Line=Inp.readline 
    Dict.Add Line, "" 
    If Err.Number <> 0 then 
     Msgbox "a dup" 
    End If 
Loop 
For Each thing in Dict.Keys() 
    Outp.writeline thing 
Next 

これは、（ファイルシステムオブジェクトからの）テキストストリームオブジェクトから読み出して、ユニークな書き込みを行っています記録。