What's the problem with this?

I'm trying to save a datetime field in an array. But I keep getting the following message:

(0x80020009)
An exeption ocurred
/bookings/prueba.asp, line 17

Here is the code:
Dim Prueba()
x = 0
rsBooking.MoveFirst
Do
Redim Preserve Prueba(x)
Prueba(x) = cstr(rsBooking.Fields(0))
x = x + 1
rsBooking.MoveNext
Loop Until rsBooking.EOF
For x = 0 To Ubound(Prueba)
Response.Write Prueba(x) & &quot;<br>&quot;
Next

Any help here would be hot.

Thanks