Tengo un problema al cargar un recordset en un Mshflexgrid de Visual basic 6.0

[Carlitoscl]

Hola amigos, estoy tratando de hacer un programilla para dar citas y estoy utilizando un mshflexgrid para mostrar los datos del recordset. La primera fila la tengo para los encabezados y la primera columna para mostrar las horas, pero el problema que tengo es que cuando ejecuta la consulta me limpia las horas y los encabezados de la fila se remplazan por los nombres de los campos. El codigo que tengo es el siguiente y tengo conexion ado:

Private Sub Form_Load()
conecta.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\eyesoft.mdb"
Calendar1.Today
With flex2
.FixedRows = 1
.FixedCols = 1
.ColWidth(1) = 3500
.ColWidth(0) = 600
.ColWidth(2) = 1500
.TextMatrix(0, 0) = "HORA"
.TextMatrix(0, 1) = "NOMBRES"
.TextMatrix(0, 2) = "ASEGURADORA"
.TextMatrix(0, 3) = "TELEFONO"
.TextMatrix(0, 4) = "CELULAR"
.TextMatrix(1, 0) = "08.00"
.TextMatrix(2, 0) = "08.15"
.TextMatrix(3, 0) = "08.30"
.TextMatrix(4, 0) = "08.45"
.TextMatrix(5, 0) = "09.00"
.TextMatrix(6, 0) = "09.15"
.TextMatrix(7, 0) = "09.30"
.TextMatrix(8, 0) = "09.45"
.TextMatrix(9, 0) = "10.00"
.TextMatrix(10, 0) = "10.15"
.TextMatrix(11, 0) = "10.30"
.TextMatrix(12, 0) = "10.45"
.TextMatrix(13, 0) = "11.00"
.TextMatrix(14, 0) = "11.15"
.TextMatrix(15, 0) = "11.30"
.TextMatrix(16, 0) = "11.45"
.TextMatrix(17, 0) = "12.00"
.TextMatrix(18, 0) = "12.15"
.TextMatrix(19, 0) = "12.30"
.TextMatrix(20, 0) = "12.45"
.TextMatrix(21, 0) = "01.00"
End With
citas.Open "SELECT * FROM t_citas", conecta, adOpenDynamic, adLockOptimistic
Set flex2.DataSource = citas
End Sub

Si me pueden ayudar, de antemano les doy las gracias.