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

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

例如：

第一条记录

姓氏=鲍蒂斯塔

名字=约翰罗德

第二条记录

姓氏=鲍蒂斯塔

名字=安吉洛

第三项记录

姓氏=多明戈

名字=安吉洛

第四项记录

姓氏=多明戈

名字=约翰罗德

保存

--

第一条记录

姓氏=鲍蒂斯塔

名字=安吉洛

第二条记录

姓氏=鲍蒂斯塔

名字=安吉洛

已经存在

这是我的密码：

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

这是我的界面：

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

Set Dict=CreateObject（“Scripting.Dictionary”）
直到Inp.AtEndOfStream
出错时继续下一步
Line=Inp.readline
增加一行“，”
如果错误号为0，则
Msgbox“一个dup”
如果结束
环
对于Dict.Keys（）中的每一项内容
输出写入线事件
下一个

---

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

提示：（1）可以为表单和文本输入框指定明确的名称。不要叫他们

Text1

，

Text2

等等，叫他们

txtFirstName

，

txtLastName

等等。（2）你的代码有一些缩进，可读性会更好。你还在想怎么做重复名称检测吗？如果是这样的话，您希望将名称存储在哪里？存储到数据库、文件、数组？请帮助我：）具体需要什么帮助？创建脚本字典。将不希望复制的数据添加到密钥中。如果密钥已经存在，它将出错。所以你知道这是个骗局。