VB.Net登录有关问题（三层），不读取数据~

VB.Net登录问题（三层），不读取数据~~~
    三层代码分别如下：
  实体（Entity）层：
  

Public Class enUserInfo


    'Users表，用于登录


    'UserID属性

    Private _userid As Integer

    Public Property UserID As Integer

        Set(ByVal value As Integer)

            _userid = value

        End Set

        Get

            Return _userid

        End Get

    End Property


    'UserName属性

    Private _username As String

    Public Property UserName As String

        Get

            Return _username

        End Get

        Set(ByVal value As String)

            _username = value

        End Set

    End Property


    'PassWord属性

    Private _password As String

    Public Property PassWord As String

        Get

            Return _password

        End Get

        Set(ByVal value As String)

            _password = value

        End Set

    End Property


    'Level属性

    Private _level As String

    Public Property Level As String

        Get

            Return _level

        End Get

        Set(ByVal value As String)

            _level = value

        End Set

    End Property


End Class

D层：
 

Public Class DBConnectDAL

    Public Shared Connstring As String = "server=192.168.24.200; database=SchoolRecharge_sys;user id=sa;password=123456"

End Class

  

'引用命名空间

Imports System.Data

Imports System.Data.SqlClient

Imports Entity


''' <summary>

''' 建立对数据库表User和Student的连接，查找并返回相应项

''' </summary>

''' <remarks></remarks>

Public Class UserDataDAL


    Public conn As New SqlConnection(DBConnectDAL.Connstring)                         '实例化连接