کمک....مرتب سازی در vb6؟؟؟؟

[zarbakhsh]

سلام.
من یه برنامه راجع به اسامی افراد در vb6 که پایگاه دادش اکسس نوشتم.این دکمه کار نمی کنه.میخوام به عنوان مثال بر حسب نام,نام خانوادگی مرتب سازی را انجام بده.
می شه کدش را برام بذارید؟
من این کد را نوشتم؟
Private Sub Sort_Click()
Dim helprs As Recordset
Set db = OpenDatabase("my bank.mdb")
Set rs = db.OpenRecordset("mytable", dbOpenDynaset)
"نام خانوادگی" rs.Sort =
Set helpers = rs.OpenRecordset()
Call print1(helprs)
db.Close
End Sub
:لبخندساده:
این کدم نوشتم ولی باز جواب نداد؟
Private Sub SortOpt_Click(Index As Integer)
Select Case Index
Case 0
Adodc1.Recordset.Sort = "Txtmanager"
Case 1
Adodc1.Recordset.Sort = "txtfamili"
Case 2
Adodc1.Recordset.Sort = "txtsherkat"

End Select
End Sub
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[zarbakhsh]

هیشکی نمی دونه؟
:گریه:

[mpmsoft]

Rs.Open "SELECT * FROM Tblname ORDER BY Name ASC"

[zarbakhsh]

Rs.Open "SELECT * FROM Tblname ORDER BY Name ASC"

مرسی از راهنماییتون ولی کجای برنامه باید این کد را بنویسم؟
.. به جای این هم نام texboxo که باید مرتب سازی روش انجام بشه را بنویسم؟Name ASC