[it1990]

hi! thers always error when i add same id...please help me how to fix this..
tnx

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then
        MsgBox "Please input the required data", vbExclamation
    Else
        MsgBox "Saved"
        End If
        
        
        With Adodc1.Recordset
            .AddNew
                .Fields("id").Value = Text1.Text
                .Fields("fname").Value = Text2.Text
                .Fields("mname").Value = Text3.Text
                .Fields("lname").Value = Text4.Text
                .Fields("bday").Value = Combo1.Text & " " & Combo2.Text & " " & Combo3.Text
                .Update
                Text1.Text = ""
                Text2.Text = ""
                Text3.Text = ""
                Text4.Text = ""
                
                End With

[tlhIn`toq]

Are you really using ancient VB6?
Or is this really VB.net and needs to be moved?

Try to load the record of that name before you add it.
If you can load it, then it exists, so don't add it.
Kinda 'duh', don't you think?