This is how it gets incremented. I should've posted this as well, sorry.

Do
If last_rcd = 0 Then 'filenum > 0 Then
ShowRecord '(last_rcd)
wc = Nsnap.SF1
I% = CkKeyWC(wc)
If ((I% = 0) And (Form4.Check1.Value = 1)) Or ((NoSupport$ = "yes") And (Form4.Check3.Value = 0)) Then
If nextjcn% = JCNcnt1% + 1 Then
JCNcnt1% = nextjcn%
Else
nextjcn% = JCNcnt1% + 1
SkipIt$ = "Y"
End If
ElseIf nextjcn% > JCNcnt1% Then
nextjcn% = JCNcnt1% + 1
SkipIt$ = "Y" ' Auto skip forward
Else
SkipIt$ = "N" '
nextjcn% = JCNcnt1%
End If
End If
Form8.ProgressBar1.Value = Form8.ProgressBar1.Value + 1
Loop Until SkipIt$ = "N" Or last_rcd = 1