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

Image8.Visible = True

Image8.Picture = Form2.Image62.Picture

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

Exit Sub

寻找高手指点迷津。

RS.Open "delete * from 数据 Where 确认状态= 'NG'", conn, 3, 2
没有 RS 对象返回，所以得到了 RS 是关闭的。
其实，除下 select 外，其他的SQL命令都不建议使用 rs.open 来执行，而是使用

conn.execute（SQL命令） 来执行，这种方法直接不要求返回 RS 对象。

按你大型数据库工程，建议封装四个功能函数
1、打开数据库连接。
2、执行SQL，并返回 RS
3、执行SQL，不返回 RS
4、关闭数据库连接，并且清理对象。

一般情况下，在整个程序运行过程是， conn 是不关闭的，保留 conn 不需要占用太多资源，但每次都重新连接 conn ，那倒开销比较大。
RS，一般用完就关闭。

那我当前用这RS这种，出现的问题应该怎么处理？
是来一个
if rs.eof = true then

end if

这样吗？

应该是

Set abc=Rs.open
....
abc.close

按照你的试了，不管用，

State 属性 (ADO)


对所有可应用对象，说明其对象状态是打开或是关闭。

对执行异步方法的 Recordset 对象，说明当前的对象状态是连接、执行或是获取。

返回值

返回下列常量之一的长整型值。

常量 说明

adStateClosed 默认，指示对象是关闭的。
adStateOpen 指示对象是打开的。
adStateConnecting 指示 Recordset 对象正在连接。
adStateExecuting 指示 Recordset 对象正在执行命令。
adStateFetching 指示 Recordset 对象的行正在被读取。


说明
可以随时使用 State 属性确定指定对象的当前状态。该属性是只读的。
Recordset 对象的 State 属性可以是组合值。例如，如果正在执行语句，该属性将是 adStateOpen 和 adStateExecuting 的组合值

---------------------
if rs.eof = adStateOpen then

end if

试了，也不管用，

Private Sub Image4_Click()

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

If RS.EOF = adStateOpen 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

不好意思，复制你代码时忘了修改了，
应该是
if rs.state <> adStateClosed then

数据表不处于关闭状态，则...

依旧不管用，还是一样的报错，