Aşagıda ise kayıtlari çektigim kayit_goster.aspx sayfasının page load'daki kodlarını veriyorum.

Imports System.Data
Imports System.Data.OleDb
Partial Class kayit_goster
    Inherits System.Web.UI.Page

    Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged
        Dim aranan, sonuc As String

        aranan = DateValue(Calendar1.SelectedDate)

        Dim baglantim As New OleDbConnection

        baglantim.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("App_Data\vt.mdb")

        baglantim.Open()

        Dim sorgula As New OleDbCommand("select * from kayit where randevutar= datevalue('" & aranan & "') ", baglantim)

        sonuc = sorgula.ExecuteScalar

        If sonuc < 1 Then

            Label2.Text = "Bu Güne Ait kayıt yoktur."
        Else
            Label2.Text = "Kayıt Başarı ile bulundu."
        End If

        DataList1.DataSource = sorgula.ExecuteReader

        DataList1.DataBind()

        baglantim.Close()
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("girdinmi") <> "evetgirdim" Then
            Response.Redirect("admin/login.aspx")
        End If
    End Sub
End Class