Connecting Mdb File To A Calendar

Hi Everyone.
 I’m trying to read data from a databasefile called database.mdf which has a connection string called “ConnectionString1â€?. The aim is to highlit specific days in my calender. For example if there is an event in my database that day on the calander will be highlited. The database has  a columb called “Dateâ€? in a table called “Datesâ€?. Please can you help? My knowlade in asp.net and VB is very limited. This is as far as I have gone. (I don’t realy understand the VB part as I have copyed it from somone) I just need the vb code to connect to the database.
 
Imports System.Data.SqlClient
Imports System.Data
Imports System.Data.OleDb
Partial Class _Default
    Inherits System.Web.UI.Page
    Protected Sub Calendar1_DayRender(ByVal sender As Object, ByVal e As DayRenderEventArgs)
        If IsExistMeeting(e.Day.Date.ToString("MM/dd/yyyy")) Then
            e.Cell.BackColor = System.Drawing.Color.Red
            e.Cell.ForeColor = System.Drawing.Color.Yellow
        End If

    End Sub
    Function IsExistMeeting(ByVal datestring As String) As Boolean
        Dim constr As String = System.Configuration.ConfigurationManager.ConnectionStrings("ConnectionString1").ConnectionString.ToString() '"your connection string"
        Dim connection As SqlConnection = New SqlConnection(constr)
        Dim sqlsel As String = "select count(*) from Dates where CONVERT(char, date, 101)='" + datestring + "'"
        Dim sda As SqlDataAdapter = New SqlDataAdapter(sqlsel, connection)
        Dim ds As DataSet = New DataSet()
        sda.Fill(ds, "Dates")
        If ds.Tables("Dates").Rows.Count = 0 Then
            Return False
        End If
        Return True
    End Function
End Class