Access200数据库，通过VB6.0代码排序问题？

Question

0，
Dim WithEvents CurrRDS  As ADODB.Recordset1，这样定义数据库：
   Set CurrRDS = New ADODB.Recordset2，这样打开的数据库：
CurrRDS.Open "样表", "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & CurrDBM, adOpenDynamic, adLockOptimistic3，没法排序操作：
CurrRDS.Sort = "成绩 DESC"4，请指点！

Answer 1

CurrRDS.Open " select * from 样表 order by 成绩 desc"

Answer 2

谢谢！这样就要重新打开数据库，能不能不呢？咳！Sort 的语法手头两本ADO的书上都这么介绍的！加入这方法可以，这不是很优雅吗？

Answer 3

问题已经解决：Dim WithEvents CurrCNN  As ADODB.Connection
Dim WithEvents CurrRDS  As ADODB.Recordset
Dim CurrDBM     As StringSet CurrCNN = New ADODB.Connection
Set CurrRDS = New ADODB.RecordsetIf CurrDBM = "" Then CurrDBM = Get_FName(Me, "Open", "*.mdb")'自定义函数，打开Open对话框
  
If CurrDBM <> "" And CurrRDS.Source = "" Then
   CurrRDS.CursorLocation = adUseClient
   CurrCNN.Provider = "Microsoft.Jet.OLEDB.4.0"
   CurrCNN.ConnectionString = "Data Source=" & CurrDBM     'CurrDBM=数据库全路径文件名
   CurrCNN.Open
   CurrRDS.Open "SELECT * FROM 表名", CurrCNN, adOpenDynamic, adLockOptimistic, adCmdText
   CurrRDS.Sort = "字段名 ASC"
End If