Private Sub cmdBackup_Click()
Dim adoPrimaryRS As New Recordset
Dim adoPrimaryRS_1 As New Recordset

Dim chkdate As Date
Dim strsql As String

If Len(txtPayDate) = 0 Then
   MsgBox " Please Enter Month End Salary date", vbInformation
   txtPayDate.SetFocus
   Exit Sub
End If
chkdate = Format(txtPayDate.Text, "dd-mm-yyyy")
Set adoPrimaryRS = New Recordset
' points to as the error
adoPrimary.Open "select max(PayDate) from tblDedAllow where format(PayPeriod,'dd-mm-yyyy') ='" & Format(chkdate, "dd-mm-yyyy") & "' ", con, adOpenForwardOnly, adLockPessimistic

If Format(chkdate, "dd-mm-yyyy") = Format(rs.Fields(0), "dd-mm-yyyy") Then
   MsgBox " Already Back up records for this Date" & rs.Fields(0), vbInformation
   Set rs = Nothing
   Exit Sub
Else
strsql = " select * from tblDedAllow where format(PayPeriod,'dd-mm-yyyy') = '" & chkdate & "'"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open strsql, con, adOpenForwardOnly, adLockPessimistic

If adoPrimaryRS_1.RecordCount = 0 Then
   MsgBox " No records for this date : " & chkdate, vbInformation
   Set adoPrimaryRS_1 = Nothing
   Exit Sub
Else
con.Execute "INSERT INTO tblDedAllowHistory select *tblDedAllow"
con.Execute "INSERT INTO tblPayrollHistory SELECT A.* FROM tblPayroll A ,tblDedAllow B WHERE A.Num = B.Num"
con.Execute "UPDATE tblPayrollHistory SET PayPeriod = '" & chkdate & "' WHERE PayPeriod IS NULL "
adoPrimaryRS_1.Close
Set adoPrimaryRS_1 = Nothing
End If

MsgBox " Records Backup..."
End If
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub