Here is the code behind the button as asked for
Private Sub cbuPROGRESS_Click()
On Error GoTo Err_cbuPROGRESS_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmPROGRESS"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cbuPROGRESS_Click:
Exit Sub...