---

Jeg har et recordset som indeholder et udtræk fra en database.
Hvor stort dette recordset er, ved jeg ikke på forhånd.
Jeg tæller størrelsen på denne måde -

Dim arraySize
arraySize = objRS.GetRows
intCols = UBound(arraySize, 1)
intRows = UBound(arraySize, 2)

Jeg opretter så det nye array, med den talte størrelse -

Dim arrayDato(intCols,intRows)

Men får så denne fejl -

Expected integer constant
Dim arrayDato(intCols,intRows)
--------------^

Er jeg helt gal på den ?

---

Jeg har fået det til at virke -

Det ser ud til at der bliver oprettet et array her -
arraySize = objRS.GetRows, så jeg behøver ikke lave
en redim senere.