Subscript out of range?

Thanks!

Where is the problem?

Code:

---

    Set hfgEquipment.DataSource = rsEquipment
   
        With hfgEquipment
        .Cols = 16
        .Rows = 2
        intRow = 0
        rsEquipment.MoveFirst
        Do Until intRow = 2
            For n = 0 To 16
                .TextMatrix(intRow, n) = Format(.TextMatrix(intRow, n), " hh:mm ")
            Next n
            intRow = intRow + 1
            rsEquipment.MoveNext
        Loop
    End With

---

Here: For n = 0 To 16

Your grid is 0 based, 16 cols is col 0 to 15.


------------------

Vincent van den Braken
EMail: [email protected]
ICQ: 15440110
Homepage: http://www.azzmodan.demon.nl





[This message has been edited by Azzmodan (edited 02-21-2000).]