ایجاد صفحه ای که مشکل اینجکشن داشته باشد !!

[dr.pantagon]

سلام
میدونم موضوع یکم عجیبه ولی می خوام صفحه ای درست کنم مشکل اینجکشن داشته باشه و با تزریق کدهای اینجکشن دستورات اجرا بشه
موضوع و هدف جنبه اموزش خواهد داشت نه خرابکارانه
این کد صفحه فعلی لاگین بنده است

Dim sqlText As String = "SELECT username,password from admin WHERE (username =@username) and (password=@password)" Dim cmd As SqlCommand = New SqlCommand(sqlText, cn)
cmd.Parameters.Clear()
cmd.Parameters.Add("@username", SqlDbType.NVarChar)
cmd.Parameters.Add("@password", SqlDbType.NVarChar)


cmd.Parameters("@username").Value = TextBox1.Text
cmd.Parameters("@password").Value = TextBox2.Text
cn.Open()
Dim sdr As SqlDataReader = cmd.ExecuteReader
If sdr.Read Then
Session("Kind") = "1243"
Server.Transfer("Default.aspx")
Else
Label3.Text = "Invalid user or bad password"
End If


پیشاپیش تشکر می کنم

[systam]

سلام
بیاد توی دستور if اینطوری تعریف کن
if sdr.hasrow=true then
sdr.read
دستورات مد نظر
end if

[dr.pantagon]

تشکر ولی فکر کنم یا من اشتباه انجام دادم یا چیزیو نگفتین

If sdr.HasRows Then sdr.Read()
Session("Kind") = "1243"
Server.Transfer("Default.aspx")
Else
Label3.Text = "Invalid user or bad password"
End If

الان کد مثل بالا شد ولی فایده ای نداشت و با هیچ کدی حتی خطا هم نمیده
admin'--
1 or 1=1
....
لطفا یه راهنمایی دیگه بفرمایید
تشکر مجدد

[dr.pantagon]

Dim sqlText As String = "SELECT username,password from admin WHERE (username ='" + TextBox1.Text + "') and (password='" + TextBox2.Text + "')"