自定义数据库（动态）

Imports Microsoft.VisualBasic

Public Class sysDB
    Inherits System.Web.UI.WebControls.SqlDataSource
    Public Const connstr As String = "Data Source=localhost;Initial Catalog=HKGWH;Persist Security Info=True;User ID=sa;Password=password"
    Sub New()
        MyBase.New(connstr, "")
    End Sub
    Overloads Function [select]() As System.Collections.IEnumerable
        Return MyBase.Select(New System.Web.UI.DataSourceSelectArguments)

    End Function
    Overloads Function [select](ByVal argument As System.Web.UI.DataSourceSelectArguments) As System.Collections.IEnumerable
        Return MyBase.Select(argument)

    End Function
End Class