سورت کردن

سلام!
من دارم یه برنامه می نویسم که توش بانک اطلاعاتی به کار رفته، یه دکمه گذاشتم که سورت کنه، برنامشم اینطوری نوشتم ولی سورت نمی کنه ایرادش کجاست؟

کد:

---

Private Sub cmdsrt_Click()
    Set db = OpenDatabase("e:\pasargad\Pasargad.mdb")
    Set rs = db.OpenRecordset("tblpas", dbOpenDynaset)
    rs.Sort = "Sn"
    Set db.OpenRecordset = rs
    db.Close
End Sub

---

فکر می کردم یکی پیدا شه جوابمون رو بده، مثل اینکه در اشتباه بودم.
بی خیال از صبح تا حالا اگه خودم میشستم پاش تا الان فهمیده بودم.

من یه فیلد دارد در بانک که چهار نوع داده توش هست . با این مقادیر : فله – پاکت – کلینگر – سایر
حالا میخوام وقتی که توی dbgrid رکوردهای بانک رو نمایش میدم . به ترتیب بر اساس مقادیر این فیلد رکوردها رو مرتب کنه:
اول پاکت ها بعد فله ها بعد کلینگر و بعد سایر . خودم فقط میتونم بر اساس حروف الفبا و با دستور order by مرتب کنم . اما چطور میشه بر اون اساس که گفتم مرتبشون کنم ؟
حروف الفبا که میزنی اول پاکت ها میاد بعد سایر بعد فله و بعد کلینگر .
کسی راهی بلده ؟

[quote=digidream;1523490]سلام!
من دارم یه برنامه می نویسم که توش بانک اطلاعاتی به کار رفته، یه دکمه گذاشتم که سورت کنه، برنامشم اینطوری نوشتم ولی سورت نمی کنه ایرادش کجاست؟

درود به شما
اگر از بانک اطلاعاتی اکسس استفاده می کنین راه ساده تری هم هست برای مرتب سازی بر اساس یک فیلد

قبل از اونکه داده ای رو وارد اکسس کنید روی ستونی که میخواین اطلاعات بر اساس اون سورت بشه کلیک کنید که به حالت انتخاب در بیاد سپس از نوار ابزار اکسس کلید سورت (صعودی یا نزولی) رو بزنین.
امیدوارم مشکلتون حل شده باشه