Please help me with my code in VB6 :   "If LastName and FirstName already exist, else add new, it's okay to duplicate the last name but different first name in the last record. 

Example:

**First Record**

*Last Name = Bautista* 
 
*First Name = Johnlord*

**Second Record**

*Last Name = Bautista* 
 
*First Name = Angelo*

**Third Record**

*Last Name = Domingo* 
 
*First Name = Angelo*

**Fourth Record**

*Last Name = Domingo* 
 
*First Name = Johnlord*

   **SAVE!**

--

**First Record**

*Last Name = Bautista* 
 
*First Name = Angelo*

**Second Record**

*Last Name = Bautista* 
 
*First Name = 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


[This is my Interface][1]


  [1]: https://i.stack.imgur.com/bLtMg.jpg