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

[SinNombre]

Hola!
Seguramente cuando haces el Citas.Open "Select..." El control lo que hace es poner los datos de ese Select como naturalmente lo hacen ellos por default.

Prueba usando Ciclos For anidados en los cuales manejes a tu antojo el lugar donde kieres que se inserte determinado dato, mas o menos asi:
Haces todo lo que ya pusiste, menos el Citas.Open, y creas un ADODB.Recordset
Dim DR as New ADODB.RecordSet

Set Dr = Conecta.Execute("Select * From t_citas (NoLock)")
' Preguntas si obtuvo datos
If Not Dr.EOF Then
'Con este ciclo manejas los renglones
For I = 1 to dr.RowCount - 1
'Con este Manejas las columnas
For J = 1 to 5
TextMatrix(I,J) = dr.Fields.Item(J).Value 'Para esto es necesario hacer
'Select, acomodando los campos en el ordern correcto, y solo los necesarios
Next J
Next I
Dr.MoveNext ' Para que cambie al siguiente registro
End if


Ojala te ayude, Suerte