[5分]for循环不返回外层继续循环，sql执行无效

很纳闷2个问题，

第一个是内循环后，不返回外层继续循环，我查了很久感觉没错啊，

第二个是sql执行无效(第二个update sql)，同样的sql在sql server中执行成功，下面是我的代码，大神帮我看下；

Private Sub cmdAddFA_Click()
   
   Dim strSrc As String
   Dim rstSrc As ADODB.Recordset
   
   Dim strBin As String
   Dim rstBin As ADODB.Recordset
   
   Dim iLoop As Integer
   Dim jLoop As Integer
   
   Dim blnSrc As Boolean
   Dim strUpdate As String
   Dim strNth As String
   
   Dim rst As DAO.Recordset
   
   Dim strMsgBox As String
 
 '************************************************************************************************************

    
    '做bin判断
    '获取bin参数
    strBin = "select * from bas_bin_para where bin_ver=1"
    Set rstBin = New ADODB.Recordset
        rstBin.Open strBin, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    
    '获取需要比对的数据tb_ht_src
    strSrc = "select * from tb_ht_src"
    Set rstSrc = New ADODB.Recordset
        rstSrc.Open strSrc, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        
        
    For iLoop = 0 To CInt(rstSrc.recordcount) - 1    'src循环               
        For jLoop = 0 To CInt(rstBin.recordcount) - 1    'bin循环
        
               '设置blnSrc初始值，表示找到符合bin
                blnSrc = True
    
            If rstBin!VF1_L > -999 Then     '空时不做判定
               If rstSrc!VF1 >= rstBin!VF1_L Then   '实际值<设置最小值，blnSrc设置为Flase，bln不符合
                  blnSrc = True
               Else
                  blnSrc = False
               End If
             End If
             
              '符合条件即写入bin值
              If blnSrc = True Then
                 strUpdate = "update tb_ht_src set Bin1_Name=" & rstBin!BIN_NAME & ""
                 strUpdate = strUpdate & " where "
                 strUpdate = strUpdate & "TEST =" & iLoop + 1
                 Debug.Print strUpdate
                 DoCmd.RunSQL strUpdate               
                 '当找到符合的bin时，赋值bin_name后，开始下一个ht_src校验，跳出循环
                 jLoop = CInt(rstBin.recordcount) + 1
              Else
                 rstBin.MoveNext
              End If
              
              'jLoop = CInt(rstBin.recordcount) + 1  '当符合条件后，跳出循环
              Debug.Print jLoop + 1
              
              '当寻找的条数与记录数一致时，跳出循环，找不到任何符合的bin，给最大bin+1
              If CInt(rstBin.recordcount) = jLoop + 1 Then
                 strNth = "update tb_ht_src set Bin1_Name=" & "(select max(BIN_NAME)+1 from bas_bin_para) "
                 strNth = strNth & " where "
                 strNth = strNth & "TEST =" & iLoop + 1
                 Debug.Print strNth
                 DoCmd.RunSQL strNth
                 jLoop = CInt(rstBin.recordcount) + 1
              End If
               
         Next jLoop   '进入下一个循环
              rstSrc.MoveNext
     Next iLoop   '进入下一个循环
         
End Sub