通过ADO方法打开的库表，无法排序，提示：实时异常 ‘3251’

通过ADO方法打开的库表，无法排序，提示：实时错误 ‘3251’
'ADO对象：
Dim Sys_CN As New ADODB.Connection
Dim Sys_RS As New ADODB.Recordset


'打开库表语句：
  Sys_CN.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & DirList.Path & "\" & dbmName
  Sys_RS.Open "无锡", Sys_CN, adOpenStatic , adLockOptimistic

'如上代码，库表确已打开，能读能写！
'但查看表对象Sys_RS的游标属性：CursorType，其值=1，即非adOpenStatic[=3]而是adOpenKeyset[=1]。

[解决办法]
http://download.csdn.net/detail/veron_04/1627068