ASP.NET , VB ve Access ile LOGIN yapmak

FAZLA SOZE GEREK VARMI İŞTE RESİM İŞTE KOD!!!

GIRIS.ASPX.VB NIN KAYNAK KODU

Imports System.Data
Imports System.Data.OleDb
Imports System.Drawing
Partial Class giris
Inherits System.Web.UI.Page
Dim baglanti As New OleDbConnection
Dim komut As New OleDbCommand
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
baglanti.ConnectionString = "Provider=Microsoft.Jet.oledb.4.0 ; data source=" & Server.MapPath("App_Data\ogrenci.mdb")
baglanti.Open()
komut.CommandText = "Select * from ogrenci where kullaniciadi='" & TextBox1.Text & "' and parola='" & TextBox2.Text & "'"
komut.Connection = baglanti
Dim dr As OleDbDataReader = komut.ExecuteReader
If dr.Read Then
Label1.ForeColor = Color.Green
            Label1.Text = "Doğru kullanıcıadı ve parola eşleşmesi.Giriş Başarılı"
Else
Label1.ForeColor = Color.Red
Label1.Text = "Yanlış kullanıcıadı ve parola eşleşmesi.Giriş Hatalı"
End If
komut.Dispose()
baglanti.Close()
End Sub
End Class