运用多条件分支时遇到的问题

我在逐条调试以下编码（部分）时出现：

1、case为1执行完成后，没有转到case Is=2，执行stop,而是又重新进入1执行；

2、重新进入1执行时，统计aa条目输任然为0。（已执行了一次，完成了一次添加，逻辑上aa不应该为0）

望老师们能给与指点。谢谢！！

 na = 1
           For na = 1 To 3
             Select Case na
                    Case Is = 1
                        bgrq =“2018-6-30”
                        bgrqz=cdate(bgrq)
                        strFileName=“000256”
                        '统计以上产品代码和报告日期在产品明细表的记录数
                        aa = DCount("产品代码",产品明细, "报告日期 = #" & bgrqz & "# and 产品代码 = '" & strFileName & "'" )
                        If aa = 0 Then
                       
                          '运行添加
                           strlq = "INSERT INTO 产品明细(产品代码代码,报告日期)" _
                           & "SELECT '" & strFileName & "',#" & bgrqz & "#;"
  
                           DoCmd.RunSQL strlq
                        
                          End If
    
             Case Is = 2
           
             Stop
            Case Is = 3
  
             Stop
            End Select
   
          Next na