Cita:
Iniciado por Lalybs 
Solo cargo la denominación del puesto, el código este..
Dim rs As New ADODB.Recordset
rs.Open "select denominacion from puestos ", con, adOpenKeyset, adLockOptimistic, adCmdText
lista.Rows = 1
lista.Cols = 1
lista.TextMatrix(0, 0) = "DENOMINACIÓN"
While Not rs.EOF
lista.Rows = lista.Rows + 1
lista.TextMatrix(lista.Rows - 1, 0) = rs!denominacion
rs.MoveNext
Wend
rs.Close
Tienes que cargar en el flexgrid el campo "idpuesto" también. Si no lo quieres mostrar, utiliza la propiedad
ColWidth:
Supongamos que éste campo lo cargas en la segunda columna (la 1), una vez cargado el flexgrid:
MSFlexGrid1.ColWidth(1) = 0
Y al seleccionar (p.e. en el evento click) creas una consulta como la siguiente:
"Select ElCampo From LaOtraTabla Where idpuesto = " & MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 1)"
La aplicas a un nuevo recordset y con éste cargas el segundo grid.
