asp.net（VB）连接数据库（要求有注释，我是新手）
以用户登陆验证为例子
login.aspx.vb里面Protected Sub login_Click即按钮单击后验证用户与密码
想要一份 连接SQL数据库的详细代码 小弟刚开始接触ASP。NET请各位老大 加点注释解释一下 授人以鱼不如授人以渔 感激不尽
假如能顺便把用户登陆验证的代码也贴上 那是再好不过了

[解决办法]
很白菜的写法，反正能用


'验证用户登陆信息并返回结果跳转页面
Public Shared Function CheckLogin(ByVal UserNm As String, ByVal Pwd As String, ByVal Pg As Page)
Dim login As String = "select * from employee where User = ' " + UserNm + " ' and password= ' " + Pwd + " ' "
Dim err As String = "密码或用户名错误 "
If conn(login) = 1 Then
Pg.Session( "username ") = UserNm
Pg.Response.Redirect( "defalut.aspx ")
Return " "
Else
Return err
End If
End Function

Public Shared Function conn(ByVal newsql As String)
'数据库连接字符串
Dim ConStr As String = "server=(local);user id=sa;pwd=;database=pubs; "
Dim con As SqlClient.SqlConnection = New SqlClient.SqlConnection(ConStr)
checkcon()
con.Open()
'判断用户身份是否正确
Dim ada As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(newsql, con)
Dim ds As DataSet = New DataSet()
Dim i As Integer = 0, j As Integer = 1
ada.Fill(ds)
con.Close()
If ds.Tables(0).Rows.Count > 0 Then
Return j
Exit Function
Else
Return i
Exit Function
End If
End Function


'判断数据库连接是否已打开，若打开则先关闭
Public Shared Function checkcon()
If con.State = ConnectionState.Open Then
con.Close()
End If
End Function