小吳 VBQA 程式設計討論

如有10資料都自動算出了總分.
那如何用排序的方法來計算名次.
我這樣寫不對..
請各位前輩給予指導
For I = 1 To Data1.Recordset.RecordCount - 1
Data1.Recordset.Move (I)
　　Set TAW = Data1.Recordset.Fields("總分")
　　For J = 1 To Data1.Recordset.RecordCount
　　　　Data1.Recordset.Move (J)
　　　　Set TAW_2 = Data1.Recordset.Fields("總分")
　　　　If I = J Then
　　　　
　　　　Else
　　　　　 If TAW ＜ TAW_2 Then
　　　　　　　DATACOUNT(I) = DATACOUNT(I) + 1
　　　　　 End If
　　　　End If
　　Next J
Next I