sql = "select * from 用户 WHERE prvWhereSQL"
                            rs_sbzl.CursorLocation = adUseClient
                            rs_sbzl.Open sql, conn, adOpenKeyset, adLockPessimistic  (调试提示,至少一个参数没有被指定值)
                            Set DataGrid1.DataSource = rs_sbzl
                            DataGrid1.AllowAddNew = False
                            DataGrid1.AllowDelete = False
                            DataGrid1.AllowUpdate = False