function da mantıksal hata

Tablo: Sınavlar

SinavID   = Primary Key Adi          = Sinav Adı (Örneğin Büyüklük - Küçüklüklük Kavramı Sınavı)

Private Function AltProgram1(ByVal bastarih As DateTime, ByVal bittarih As DateTime) As Integer
        Dim baglanti As New OleDbConnection("Bağlantı Stringi")
        Dim com As New OleDbCommand("Select * From Sinavlar Where BaslangicTarihi < @bastarih and BitisTarihi >@bittarih ", baglanti)
        com.Parameters.AddWithValue("@bastarih", bastarih)
        com.Parameters.AddWithValue("@bittarih", bittarih)
        Dim dr As OleDbDataReader
        baglanti.Open()
        dr = com.ExecuteReader()
        If dr.HasRows Then
            dr.Read()
            AltProgram1 = dr("SinavID")
            dr.Close()
        Else
            Response.Redirect("yenisayfa.aspx")
        End If
        baglanti.Close()
    End Function




hata:
1.yukarıdaki tabloda BaslangicTarihi ve BitisTarihi bulunmamaktadır bu da hataya sebep olur.
2.baslangictarihi ve bitistarihi diyerek bu iki tarihin arasındaki degerleri alması gerekirken dışındaki değerleri alıyor. buda mantıksal hatadır


not:
bu fonksiyonunun hatsız olarak çallıştığındığındaki ama iki tarih arasında sınavlar tablosundan sınav id sini belirlemektir




(Bence:))