This simple function will execute the specified Select SQL command and return the result as data set.
Public Function ReadFromDatabase(ByVal DBConnectionString As String, ByVal SQL As String) As DataTable
Dim dtReturn As New DataTable
Try
'Open the connection using the connection...