i tried this but with no luck
Private Function basOrderby(col As String, xorder As String) As Integer
Dim strSql As String
'Clear captions from command buttons
ClearCaptions
'Set row source for list box
If Me.Check25 = -1 Then
strSql = "SELECT DISTINCTROW Project_Name, Project_Creator...