Hola,
El error está en que estás intentando asignar un valor de tipo string a una variable de tipo string().
Puedes hacerlo de dos maneras:
1º
Código vb:
Ver originalDim i as Integer = 0
While reader1.Read()
ReDim Preserve ar(i)
ar(i) = reader1("e")
i+=1
End While
2º
Código vb:
Ver originalDim list As New List(Of String)
While reader1.Read()
list.Add reader1("e")
End While
ar = list.toArray
La segunda me gusta más porque no tienes que estar redimensionando continuamente el array y luego puedes usar el método toArray para pasarlo a un array.
Un saludo.