saves_click()
Select Case act
  Case 2
    Select Case cond
      Case 0
        ansr = MsgBox("The employee you enter already exist. Would you like the record to display?", vbYesNo, Label)
          If ansr = vbYes Then
            act = 0
            ans = txt_no(0).Text
            epis.Recordset.CancelUpdate
            educ.Recordset.CancelUpdate

Select Case act=2
.
.
.....Select Case cond=1
                educ.recordset.movefirst
                family.recordset.movefirst
                epis.recordset.movefirst
.
.
end select
end select

Private Sub saves_Click()

If act = 3 And cond = 1 Then
    MsgBox "The record's identification code has been modified. System failed to update.", vbCritical, label
    epis.Recordset.CancelUpdate: epis.Recordset.MoveFirst: educ.Recordset.MoveFirst: family.Recordset.MoveFirst
End If

If act = 2 And cond = 1 Then
        ans = MsgBox("Are you sure you want to save this

Private Sub check()
stng = ans
Set rspos = New ADODB.Recordset
rspos.Open "EPIpersonal", conn1, adOpenStatic, adLockOptimistic, CmdTable
Set rs = New ADODB.Recordset

SQL = "select employee_id_no from EPIpersonal "
    rs.Open SQL, conn1, adOpenStatic, _
    adLockOptimistic, adcmdtxt
    Do While rs.EOF = False

Private Sub saves_Click()
If act = 3 And cond = 0 Then GoTo