Visual Basic - comparaciones

Hola,
estoy comparando un flexgrid con un tabla de una Bd´s q cree en access, todo allí esta bien, solo que quiero ordenar una columna del flexgrid y la sentencia no me hace nada.
de que otra forma puedo ordenar un flexgrid, asi como comparar dos flexgrid.

Gracias.

Private Sub Command4_Click()
Dim wrkJet As Workspace
Dim h As Database
Dim f2 As Recordset
Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
Set h = wrkJet.OpenDatabase("C:\Documents and Settings\usuario\Mis documentos\VBrionesN\info\Predicciones\prediccion.mdb", False, False, ";PWD=")

ms.Col = 2
ms.row = 2
If ms.Text = "" Then
MsgBox ("No hay datos")
Else
menort
End If
'analistas
For b = 1 To ms1.Rows - 1
ms1.Col = 3
ms1.row = b
valo = ms1.Text
Set f2 = h.OpenRecordset("Select bsc, analista from bsc where bsc ='" + valo + "'order by analista asc")`´ AQUI ES DONDE SEGUN LO ORDENO´´
If f2.EOF = False Then
ms1.row = b
ms1.Col = 12
ms1.Text = f2(1).Value
End If
Next
End Sub