Hello everyone

I'm trying to create a Calendar control that will highlight dates according
To if there is an entry in my access database for that day

This is my VB code

Imports System
Imports System.Data
Imports System.Data.OleDB
Imports System.Web.UI.WebControls
Imports System.Web.UI

Namespace JtaIntranet
Public Class CalendarEvents : Inherits Page
Protected databasePath as string = Server.MapPath("../datasource/EventBudgets.mdb")
Protected strConn as string = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& databasePath &";Mode=ReadWrite|Share Deny None;Persist Security Info=False"
Protected objConnection as OleDbConnection

Protected Sub EventCalendar_SelectionChanged(sender as object, e as EventArgs)

End Sub

Protected Sub EventCalendar_DayRender(sender as object, e as DayRenderEventArgs)
response.write(e.day.Date & "<br>")
objConnection = new OleDbConnection(strConn)
objConnection.Open()

Dim strSQL as string
strSQL = "SELECT EventDate FROM tblAirLineBudget"

Dim objCmd as New OleDbCommand(strSQL, objConnection)
Dim objDR as OleDbDataReader
objDR = objCmd.ExecuteReader()

while objDR.Read()
if e.day.Date = objDR("EventDate") then

e.cell.style.add("font-weight","bold")
e.cell.style.add("background","#CCCC33")

end if
end while

End Sub
End Class

End Namespace

This works if I compare e.day.date = "25/09/2007" or any other date
but not when I try e.day.Date = objDR("EventDate") this just gets an unspecified error

Any help would be greatly appreciated.