Access中字符串如何排序？

Function orderStr(str As String) As StringDim s As StringDim j As LongDim n As Longs = Mid(str, 1, 1)For j = 1 To Len(str)      If Mid(str, j, 1) < s Then s = Mid(str, j, 1): n = j '计算最小值及其位置。Nextstr = s & Replace(str, s, "",1, 1) '排序orderStr = strEnd Function