Private Sub Image4_Click()

Call KKK(conn)
RS.Open "delete * from 数据 Where 确认状态= 'NG'", conn, 3, 2

If RS.State <> adStateClosed Then


Image8.Visible = True

Image8.Picture = Form2.Image62.Picture

Else
Image8.Picture = Form2.Image63.Picture


'  释放相应的资源
RS.Close
conn.Close
    Set RS = Nothing
    
    Set conn = Nothing

Exit Sub

End If

End Sub

那你只能 在这个地方中断一下，然后在本地窗口里，检查 rs 的属性。
看看有哪个属性能标识RS 的状态的。

用这个判断呢？

if  rs is Nothing then     
'如果对象没有引用任何对象


---------------
我直接定义一个RS，然后不做任何操作时，在本地窗口 中 rs 的属性直接为 Nothing

Private Sub Image4_Click()

Call KKK(conn)
RS.Open "delete * from 数据 Where 确认状态= 'NG'", conn, 3, 2
    If RS.State <> adStateClosed Then
        Image8.Visible = True
        Image8.Picture = Form2.Image62.Picture
    Else
        Image8.Picture = Form2.Image63.Picture
        ' 这里取消 Exit Sub 语句
    End If
    '将 关闭对象语句移动到判断语句之外
    RS.Close
    Set RS = Nothing
    conn.Close
    Set conn = Nothing
End Sub

报错依旧。。。。。

检查其他过程，可能没有关闭 RS 对象

好的，我再查查。

Call KKK(conn)
Set rs = New ADODB.Recordset
RS.Open "delete * from 数据 Where 确认状态= 'NG'", conn, 3, 2

Image8.Visible = True

Image8.Picture = Form2.Image62.Picture
If rs.State = 1 Then rs.Close

有这个提示了，说明rs是在关闭状态，不需要再关闭了。
感觉 delete * from 数据 Where 确认状态= 'NG'"就是直接删除数据。

确认对应的记录已经被删除，那么这个关闭语句就不要了。

这是最让我能够理解满意的答案，谢谢