How To Check Between Todays Date With Another Date?

Hi, pple

I am trying to check dates. I tried something like this but it doesn't work.

Dim strarray As Array

Try

Dim my As New Database

my.OpenConn()

Dim d As SqlDataReader

Dim dr2 As SqlDataReader

d = my.ExecuteQuery("Select lastLogin, ID from Student")

While d.Read

Dim ld As DateTime = d("lastLogin")

If ld > FormatDateTime(Now) Then

strarray() = strarray() + d("ID")

End If

End While

d.Close()

dr2 = my.ExecuteQuery("Insert into Audit (auditID, ID, auditMsg, updatedDate) values ('200','20','" & strarray() & "','" & FormatDateTime(Now) & "');")

dr2.Close()

my.CloseConn()

Catch x As Exception

Debug.WriteLine(x)

End Try