Imports Microsoft.VisualBasic
Imports System.Data.SqlClient


Public Class MyBusinessLayer
    Dim _conStr As String = ConfigurationManager.ConnectionStrings("ConnectionString").ToString()
    Public Function GetAllCategories() As Data.DataTable
        Dim _sql As String = "SELECT * FROM Categories"
        Dim con As SqlConnection = New SqlConnection(_conStr)
        Dim cmd As SqlCommand = New SqlCommand(_sql, con)
        Dim adapt As SqlDataAdapter = New SqlDataAdapter(cmd)
        Dim _dt As New Data.DataTable
        con.Open()
        adapt.Fill(_dt)
        con.Close()
        Return _dt
    End Function
End Class