Function ListenForLabels()
Dim db As Database
Dim rs As Recordset
Dim CaptureRecCount As Integer
Set db = CurrentDb()
Set rs = db.OpenRecordset("tblCapture")
With rs
.MoveFirst
.MoveLast
CaptureRecCount = .RecordCount
If CaptureRecCount > 0 Then
DoCmd.OpenForm "frmProcessHidden", , , , , acHidden
DoCmd.OpenForm "frmProcess"
End If
End With
End Function