Sub enter_click(ByVal sender As Object, ByVal e As EventArgs)
        Dim conn As New SqlConnection("server=localhost;database=education;uid=sa;pwd=")
        Dim password As String
        Dim strsql As String
        strsql = "select password from * login where userid= " & userid.Text & " and email='" & email.Text & "'"
        Dim cmd As New SqlCommand(strsql, conn)
        conn.Open()
        Dim dr As SqlDataReader = cmd.ExecuteReader()
        If dr.Read = True Then
            lblpwd.Text =dr.Read [ " password " ].ToString()
            conn.Close()
        Else
            lblpwd.Text = "你的帐号或密码错误"
        End If
    End Sub红色的那句话是错的.要怎么改,知道的回答下,谢了!