回复 9楼 风吹过b
程序代码:
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