Vb6 仅当介于2个数字之间时循环

我一直推迟问这个问题，因为这似乎是一个我可以解决的简单问题，但我一直在绞尽脑汁，现在无法思考。我尝试了大量不同的代码组合，但似乎找不到正确的

我的两个问题：

---

• 我需要创建一个循环，只有当变量在2个数字之间时才会触发。示例（这不起作用）：

  dowhilesopickrs.RecordCount>=1和您是否正在尝试类似的操作：
  
  currentRecord = 1
  While Not SOPickRS.EOF
  
      if (currentRecord  >=1 and currentRecord  <=4)
          'Do Stuff
      end if
      currentRecord = currentRecord + 1
  wend
  
  currentRecord=1
  而不是SOPickRS.EOF
  如果（currentRecord>=1，currentRecord RecordCount是记录集中的记录数，而不是当前正在查看的项的索引，则Do While循环将根本不运行（如果记录集为空或包含3个以上的项）或者永不停止。我刚刚添加了一些我当前的代码以避免混淆。我的循环正在运行，但我需要限制它们，以便它们仅在记录计数介于两个数字之间时运行。要求是什么还不清楚。正如@GTG所说，recordcount给出了记录的数量，并且它不会更改，任何一个循环都不会执行或将执行不被终止啊，是的，我现在明白你的意思了。我又更新了我的问题。（帖子底部）在一个简单变量中跟踪你循环到的记录索引有什么错？
  currentRecord = 1
  While Not SOPickRS.EOF
  
      if (currentRecord  >=1 and currentRecord  <=4)
          'Do Stuff
      end if
      currentRecord = currentRecord + 1
  wend