If a > 1102 Or Count5>1102 Or data>"2015-09-30" AndAlso Ok = False Then
改成
If (a > 1102 Or Count5>1102 Or data>"2015-09-30") AndAlso Ok = False Then