如何在VB6中检测重复记录？

Question

如果LastName和FirstName已经存在，否则添加new，可以复制姓氏但在最后一条记录中使用不同的名字。

示例：

第一条记录

姓氏= Bautista

名字= Johnlord

第二次记录

姓氏= Bautista

名字= Angelo

第三条记录

姓氏= Domingo

名字= Angelo

第四条记录

姓氏= Domingo

名字= Johnlord

保存！

-

第一条记录

姓氏= Bautista

名字= Angelo

第二次记录

姓氏= Bautista

名字= Angelo

ALREADY EXIST！

这是我的代码：

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

这是从文本流对象（从文件系统对象）读取并写入唯一记录。