instruccion Do with en MSHFlexGrid se traba.

[sonyweb]

Código:

 Do While Not .EOF
FlexComedor.TextMatrix(FlexComedor.Rows - 1, 1) = !NombreCatalogo
FlexComedor.TextMatrix(FlexComedor.Rows - 1, 2) = !IdCatalogoPrecios
FlexComedor.TextMatrix(FlexComedor.Rows - 1, 3) = "NO"
FlexComedor.Rows = FlexComedor.Rows + 1
.MoveFirst  <----aqui te estas moviendo siempre al primer registro
Loop
End With
FlexComedor.Rows = FlexComedor.Rows - 1
rcComedor.Close
End Sub