Visual Basic para Aplicaciones - Ayuda Con Mshflexgrid y Ado

hola, les cuento que necesito ayuda con un turnero, es un MSHFlexGrid (conectado con un ado) y yo le creo Tres columnas:
Hora, Paciente, Practica y unas 60 Filas en las cuales van desde las 8:00 hasta las 21:45 con un separacion de 15min. (codigo creado por setfocus que es un capo), y en el bd del ADO guardo los turnos que se dan.
ahora tengo que ordenar los datos de la bd en el MSHFlexGrid segun la hora, asi me muestra los horarios ocupados y los libres

codigo del mshflexgrid

Dim I As Integer
Dim Horas As Integer ' Cantidad de Horas a mostrar en la Grilla
Dim Minutos As Integer 'Cantidad de minutos por fraccion de tiempo
Dim Fracciones As Integer 'Cantidad de fracciones de tiempo en 60min. segun cantidad de minutos
Dim HoraInicio As Date 'Hora de inicio de la Grilla

Horas = 14
Minutos = 15
Fracciones = 60 / Minutos
'lo pongo en 7:45 para que en la grilla empiece a las 8:00
'porque como ves ya empieza agregandole minutos en la primer
'pasada del For
HoraInicio = #7:45:00 AM#

With MSHFlexGrid1
.FixedRows = 1
.FixedCols = 1
.Rows = (Horas * Fracciones) + 1
.Cols = 3
.ColWidth(0) = 800

For I = 1 To Horas * Fracciones
.TextMatrix(I, 0) = Format(DateAdd("n", Minutos * I, HoraInicio), "Hh:Nn:Ss")
Next
End With

porfa que alguien me de una mano!!!!