我之前也碰到过类似的Recordset诡异问题，结合你的代码和描述，这几个原因大概率能解释你的问题，按优先级排查：

1. 变量名和Recordset内置属性冲突（最可能的元凶） #

你代码里用了desc作为变量名，但Desc是ADODB.Recordset的内置Description属性（用来存储记录集的描述信息）。VBA的解析器会把这个变量名和Recordset的属性搞混，轻则字段读取错误，重则直接破坏Recordset的内部状态，导致后续字段值变成Empty。

快速修复：
把desc变量重命名成不会冲突的名字，比如itemDescription或者prodDesc：

itemDescription = rs.Fields("DESC")

2. 游标类型导致的延迟加载问题 #

默认情况下，ADODB.Recordset用的是adOpenForwardOnly（只进游标），这种游标不会一次性把所有数据加载到本地内存，而是从数据库按需获取。有些SQL Server驱动在访问特定字段后，可能没有正确缓存其他字段的数据，导致调试时看到值消失。

修复方案：
打开Recordset时显式指定静态客户端游标，强制把所有数据加载到本地：

With rs
    .ActiveConnection = cn
    .CursorType = adOpenStatic ' 静态游标，保存本地数据副本
    .LockType = adLockReadOnly
    .CursorLocation = adUseClient ' 客户端游标，避免依赖服务器端游标
    .Open
End With

如果你的代码没定义ADODB常量，直接用数值也行：adOpenStatic = 3，adUseClient = 3，adLockReadOnly = 1。

3. 隐性的NULL值或类型转换错误 #

如果某些字段包含NULL值，或者字段类型和你的VBA变量类型不匹配，赋值时可能触发隐性错误（因为你有On Error GoTo，所以没弹出提示），但会悄悄搞乱Recordset的状态。

修复方案：
显式处理NULL值，同时确保变量类型匹配：

' 处理NULL值，避免隐性错误
article = IIf(IsNull(rs.Fields("ARTICLE").Value), "", rs.Fields("ARTICLE").Value)
lst_nr = IIf(IsNull(rs.Fields("LST_NR").Value), 0, rs.Fields("LST_NR").Value)
itemDescription = IIf(IsNull(rs.Fields("DESC").Value), "", rs.Fields("DESC").Value)

另外，建议给变量加上类型声明（比如Dim article As String），避免Variant类型的隐性转换问题。

4. 连接稳定性问题 #

虽然你的连接在循环中保持打开，但如果连接字符串用了旧驱动（比如SQLOLEDB），或者数据库服务器有短暂的连接波动，可能导致Recordset无法读取后续字段的数据。

检查点：

• 确认GetConnectionString()返回的是现代驱动，比如SQL Server Native Client 11.0或者ODBC Driver 17 for SQL Server。
• 可以在循环里加个连接状态检查：

Do While Not rs.EOF
    If cn.State <> 1 Then ' adStateOpen = 1
        cn.Close
        cn.Open cnstr
        rs.ActiveConnection = cn
    End If
    ' 字段赋值逻辑
    rs.MoveNext
Loop

验证顺序 #

先改变量名，这是最快能验证的；如果不行再调整游标类型；最后处理NULL值和连接问题。

内容的提问来源于stack exchange，提问作者Hadoken