private sub cmddelete_()
adodc1.recordsource="select * from employee where id " & _
"'" & txtid.text & "'"
adodc1.refresh
 
dim a as integer 
 
a=adodc1.recordset.recordcount
    if a=1 then 
          msgbox"id found ",,"id number match"
          with adodc1.recordset
                  .delete
                  .update
           end with
     msgbox"record deleted",,"employee deleted"
exit sub
 
end if
msgbox"no id number match with ur request",,"no file found"
end sub