flx1.Clear
flx1.FixedRows = 1
flx1.FixedCols = 0
flx1.Rows = 50 / 5
flx1.Cols = 6
flx1.TextMatrix(0, 0) = "Nombre"
flx1.TextMatrix(0, 1) = "Lunes"
flx1.TextMatrix(0, 2) = "Martes"
flx1.TextMatrix(0, 3) = "Miércoles"
flx1.TextMatrix(0, 4) = "Jueves"
flx1.TextMatrix(0, 5) = "Viernes"
Dim i1 As Integer, lCta As Long
rs1.MoveFirst
Do Until rs1.EOF
lCta = lCta + 1
flx1.TextMatrix(lCta, 0) = rs1.Fields(0).Value
flx1.TextMatrix(lCta, 1) = rs1.Fields(1).Value
For i1 = 2 To 5
rs1.MoveNext
flx1.TextMatrix(lCta, i1) = rs1.Fields(1).Value
Next i1
rs1.MoveNext
Loop