各位高手,拉小弟一把吧!我实在没有分数了，以后一定回报大家!!

Private Sub TestConnectDbf()
‘连接打开dabase III数据库
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim w as string
Dim c as string
w = Mid$(dbname, 1, Len(dbname) - Len(Text2.Text))
iConc = "Provider=MSDASQL.1;Extended Properties= " & "DSN=dBASE Files;DBQ= " & w
db.Mode = adModeReadWrite
db.Open iConc
rs.Open Text2.Text, db, adOpenDynamic, adLockOptimistic
‘取得记录
Set Adodc1.Recordset = rs
C=rc()
‘进行添加记录
Adodc1.recordset.addnew
End sub
Public Function rc() As String
Text1(0).DataField = rs.Fields(0).Name
Text1(1).DataField = rs.Fields(1).Name
Text1(2).DataField = rs.Fields(2).Name
Text1(3).DataField = rs.Fields(5).Name
Text1(4).DataField = rs.Fields(3).Name
Text1(5).DataField = rs.Fields(4).Name
Text1(6).DataField = rs.Fields(7).Name
Text1(7).DataField = rs.Fields(6).Name
Text1(8).DataField = rs.Fields(44).Name
Text1(9).DataField = rs.Fields(45).Name
Text1(10).DataField = rs.Fields(46).Name
End fuction
为什么对其进行排序后，没有反映呢?我用的是两个字段的排序,请问该怎么写?
还有记录的删除,不知道为什么删除后还能看到删除的记录,但是退出后在近来就看不到了.
望指教!