查询提示!!!

我使用的代码如下:
Adodc1.CommandType = adCmdText '查询库存上限
Adodc2.CommandType = adCmdText '查询库存下限
Adodc3.CommandType = adCmdText '查询入仓登记表
Adodc4.CommandType = adCmdText '查询入仓登记表
Adodc1.RecordSource = "select * from 库存上限表"
Adodc1.Refresh
Adodc2.RecordSource = "select * from 库存下限表"
Adodc2.Refresh
If Adodc1.Recordset.RecordCount <> 0 Then
   'For i = 0 To Adodc1.Recordset.RecordCount
       Do While Not Adodc1.Recordset.EOF
          Adodc3.RecordSource = "select 结存 from 入仓登记表 where 名称='" & Trim(Adodc1.Recordset!商品名称) & "'"
          Adodc3.Refresh
          If Adodc3.Recordset.RecordCount <> 0 Then
             If (CInt(Adodc3.Recordset!结存) - CInt(Adodc1.Recordset!库存上限)) > 0 Then
                MsgBox Adodc1.Recordset!商品名称 + " 已经超过库存上限!请及时出货!", vbExclamation
             End If
          End If
       Adodc1.Recordset.MoveNext
      Loop
End If
If Not Adodc2.Recordset.EOF Then
   Do While Not Adodc2.Recordset.EOF
      Adodc4.RecordSource = "select 结存 from 入仓登记表 where 名称='" & Trim(Adodc2.Recordset!商品名称) & "'"
      Adodc4.Refresh
      If Not Adodc4.Recordset.EOF Then
         If (CInt(Adodc4.Recordset!结存) - CInt(Adodc2.Recordset!库存下限)) < 0 Then
            MsgBox Adodc1.Recordset!商品名称 + " 已经低于库存下限,请及时进货!", vbExclamation
            Adodc2.Recordset!超限数量 = CInt(Adodc2.Recordset!库存下限) - CInt(Adodc4.Recordset!结存)
            Adodc2.Refresh
         End If
      End If
      Adodc2.Recordset.MoveNext
      Loop
End If

数据库里面有数据,结存数据有高与上限的,也有低于下限的,为什么这段代码却没有反应呢? 是不是那里有问题了? --------------------编程问答-------------------- “结存数据有高与上限的,也有低于下限的”，
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
不明白

补充：VB ,  基础类

查询 提示!!!

查询提示!!!