请高人解答下这俩道题目，在线有等。

Question

http://access911.net/CSDN/FileDescription.asp?mdb=2008-3-4&id=3

Answer 1

'******Microsoft ActiveX Data Objects 2.5 Library  '要注册msado15.dllPublic conn As New ADODB.Connection '定义数据连接字符串
Public rs As New ADODB.Recordset '定义记录集
Dim db As String, schdata As String
Private Sub Form_Load()
   db = "c:\bwtruck\bwdata"
   db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & db & "\bwscale.mdb"
   conn.CursorLocation = adUseClient
   conn.Open db '打开数据库连接
   rs.Open "bwcust", conn, adOpenKeyset, adLockPessimistic ''打开记录集
   '***************** 重点在下面这一行 ***********   
   rs.Sort = "custid"
End Sub

Answer 2

天啊~~LZ你不说我还真不记得有FoxPro这东西了.