例如：

现在有一个字段是No，表为Product

他的字段值：
DSW-999
DSW-999a
DSW-999b
DSW-1002

要求按照DSW-后面的数字排序显示记录

我的做法：

Set Rs=Conn.Execute("Select * From Product order by Cint(Product_Sub(Mid(Product_Id,5,5)))")

Function Product_Sub(Product)
Product_Str=""
For i=1 To Len(Product)
If IsNumeric(Mid(Product,i,1)) Then Product_Str = Product_Str & Mid(Product,i,1)
Next
Product_Sub = Product_Str
End Function

可是这样根本就不显示记录．我也不知道要怎么办了．

哪位高手帮帮我．