至少一个参数没有被指定值?????
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
[解决办法]
sql = "select * from 用户 "
[解决办法]
sql = "select * from 用户 WHERE " & prvWhereSQL
确认 prvWhereSQL 正确性