array de fechas

[mkgreidi]

Tengo el siguiente codigo para crear un array de fechas que obtengo de una consulta,inicio y final serian dos fechas de referencia

inicio = dsevento.Tables("eventos").Rows(0).Item("fec_ini_e vento")
final = dsevento.Tables("eventos").Rows(0).Item("fec_fin_e vento")

Dim i, a, j As Integer
Dim array() As Date
a=0
Do While inicio <= final

array(a) = inicio
a = a + 1
Loop

Pero me da el siguiente error y no se porque

System.NullReferenceException: Referencia a objeto no establecida como instancia de un objeto