Date arrays

Question

hi i want to store date from the database into an array......

here is my code:

dim tm() as date

dim got as integer

and i'm getting this error....when i use it...

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

NotifyIcon1.Text = "B'Day S/W"

Call conn()

cmd = New OleDbCommand("select * from login", cn)

dr = cmd.ExecuteReader

While dr.Read

If (dr("pwd") = "") Then

Else

GroupBox1.Hide()

End If

End While

cmd = New OleDbCommand("select * from bday", cn)

dr = cmd.ExecuteReader

While dr.Read

If (dr("AlarmDate") = Date.Today) Then

got = got + 1

tm(got) = dr("AlarmTime")        ------------>>> i get the error in this line::

End If

End While

temp = got

 

Error is "Object reference not set to an instance of an object."

 

 

 

Please help meeee