how to show duplicate with a msgbox in vb6?

[nay zin]

i want to show the duplicate record with a msgbox,but i dont know what to do next, please help for some advice and coding ...ty

Private Sub cmdadd_Click()
On Error Resume Next
        If (txtempid.Text = "" Or txtempid.Text = Null) Or (txtempname.Text = "" Or txtempname.Text = Null) Or (cbodep.Text = "" Or cbodep.Text = Null) Or (cboorg.Text = "" Or cboorg.Text = Null) Or (cborole.Text = "" Or cborole.Text = Null) Then
        MsgBox "Do Not Let The Data Empty,Fill Again", vbInformation, "Please Fill All Data"
        txtempid.SetFocus
        Exit Sub
         Else
        Set strrs = New ADODB.Recordset
         strconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\EmployeeList.mdb"
        strsql = "INSERT INTO EmpTable(Employee_ID,Employee_Name,Department_Name,Organization_Name,Role_Name) VALUES ('" & txtempid.Text & "'" & ", " & "'" & txtempname.Text & "'" & ", " & "'" & cbodep.Text & "'" & ", " & "'" & cboorg.Text & "'" & ", " & "'" & cborole.Text & "')"
        MsgBox strsql
        Set strrs = strconn.Execute(strsql)
        MsgBox "Saved"
         strconn.Close
        End If