rity Info=False"
      sql = "select * from info_provider where pno='" & Text1.Text & "'"
      rs.Open sql, cn, 3, 2
      response = MsgBox("确定要删除该供应商吗?", vbOKCancel + 32, "提示")
      If response = vbOK Then
       rs.Update
       MsgBox "删除成功"
      End If
    
    End Sub