Imports System.Data.SqlClient
 
Public Class requestor
    Inherits Connector
 
    Public Function request(ByVal query As String) As DataTable
        Dim t As New DataTable
        If connect() Then
            Try
                Dim adap As New SqlDataAdapter(query, _sql_conn)
                adap.Fill(t)
                adap.Dispose()
                Console.WriteLine(query)
            Catch ex As Exception
            End Try
            Disconnect()
        End If
        Return t
    End Function
 
End Class