关于登陆模块的问题!多谢啦!

[leitingkitty]

我想做一个登陆模块
Private Sub Button1_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ServerClick
Dim StrUser As String, StrPass As String
Dim BValid As Boolean
Dim ConVM As SqlConnection
Dim CmdCoInfo As SqlCommand
Dim DrCoInfo As Sqldatareader

Dim StrSQL As String

StrUser = Txtname.Text
StrPass = Txtpassword.Text
BValid = False
ConVM = New Sqlconnection("Server=KITTY;UID=sa;PWD=;Database=study")
StrSQL = "SELECT * FROM student WHERE id='" & StrUser & "'"
CmdCoInfo = New SqlCommand(StrSQL, ConVM)
ConVM.Open()
DrCoInfo = CmdCoInfo.ExecuteReader()
While DrCoInfo.Read()
If DrCoInfo("UserName") <> "" And DrCoInfo("Password") <> "" Then
Response.Cookies("ValidUser").Value = DrCoInfo("UserName")
Response.Cookies("ValidUser").Expires = DateTime.Now.AddMonths(1)
BValid = True
Else
End If
End While
ConVM.Close()
If BValid = True Then
Response.Redirect("index.aspx")
ElseIf BValid = False Then
Lb1message.Text = "Login Error: Please try again."
End If
我建立了sqldataadapter1 sqlconnection1 dataset1,用以上代码时,报错未定义类型SqlConnection
SqlCommand Sqldatareader
是为什么啊?该怎么改动啊?多谢各位大侠!