Dim db As DAO.Database
Dim rsqry As DAO.Recordset
Dim rstbl AS DAO.RecordSet
Dim strSQL As String
Dim CheckOut As String
Set db = CurrentDb
Set rsqry = db.OpenRecordset("qryTally")
Set rstbl = db.OpenRecordset("tblControlTable")
Start by changing the bold and adding...