I tried this too - no success...
Code:
Dim arr() As Variant, x As Long
rs.MoveFirst
Do Until rs.EOF
ReDim Preserve arr(0 To x) As Variant
Set arr(x) = New Dictionary
arr(x).Add "ShowDate", Format(rs!BookingDate, "dd/mm/yyyy")
arr(x).Add "Teacher", Trim(rs!TeacherName & " " & rs!TeacherSurname)
arr(x).Add "ShowTitle", rs!ShowTitle
arr(x).Add "Feedback", rs!Feedback
x = x + 1
rs.MoveNext
Loop
For x = LBound(arr) To UBound(arr)
With arr(x)
Debug.Print .Item("ShowDate")
Debug.Print .Item("Teacher")
Debug.Print .Item("ShowTitle")
Debug.Print .Item("Feedback")
End With
Next x