Hi,

I don't understand why Redim doesn't work.
I get a message that "Het aantal dimensies al is bepaald"
Can someone help me please

Dim MyArray(4, 10)

x = 1
With rs
.MoveFirst
Do Until .EOF
MyArray(0, x) = .Fields("Lozingsnummer").Value
MyArray(1, x) = .Fields("RedenLozing").Value
x = x + 1
ReDim Preserve MyArray(5, x)
.MoveNext
Loop
End With