Hola a todos, tratando de encontrar soluciones, encontre una forma de simplificar como cragar un recodset, y ahora estoy atorado en esto, el metodo GetString del ado, explico todo va bien hasta esta parte me carga todas los campos(38) y solo necesito que vea (21) e incluso en el orden que deseo mostrar y no la del recodset, en esta sub rutina muestro parte del problema lo que no se encuentra lo indicocon rojo:
Private Sub Llenar_FlexGrid()
On Error GoTo errsub
CargaRs Como lo indica esta conectado a otra sub rutinandonde esta la conexcion al recodset
verFlex m_VerF

' Deshabilita el repintado del Flexgrid
m_FlexGrid.Redraw = False

' Mueve el recordset al primer registro
rstF.MoveFirst



' Agrega las filas necesarias en el FlexGRid
m_FlexGrid.Rows = rstF.RecordCount + 1

' Agrega las columnas necesarias
m_FlexGrid.Cols = iFX + 1

Dim c As Integer


' recorre los campos del recordset
For c = 0 To iFX - 1
' Agrega los encabezados de columna
m_FlexGrid.TextMatrix(0, c) = xVerFlex(c) aqui cargo el array al flexgrid
Next
' Selecciona
m_FlexGrid.Row = 1
m_FlexGrid.Col = 0


m_FlexGrid.RowSel = m_FlexGrid.Rows - 1
m_FlexGrid.ColSel = m_FlexGrid.Cols - 1

'Devuelve o establece el contenido de las celdas en _
una región de FlexGrid seleccionada. No está disponible en tiempo de diseño. _
( Esta linea de código es la que carga los registros )
m_FlexGrid.Clip = rstF.GetString(adClipString, -1, Chr(9), Chr(13), vbNullString)
como indique me carga me carga el recodset tal como es y no como deseo que se vea
m_FlexGrid.Row = 1

' habilita nuevamente el Redraw en el control
m_FlexGrid.Redraw = True

Exit Sub

errsub:
MsgBox err.Description, vbCritical
End Sub


amigos porfavor nose como hacer, ya e escrito otras msn y al no ver resultados busco forma de encontrar soluciones, aclaro esta y las otras siempr me van a servir y agradesco por su comprencion, la ayuda tambien, saludos