''' <summary>
''' method to execute a loaded SqlCommand object
''' </summary>
''' <param name="cmd"></param>
''' <returns></returns>
Public Function GetDataTable(ByVal cmd As SqlCommand) As DataTable
	'sql adapter
	Dim adapter As New SqlDataAdapter()
	'data table to hold the results
	Dim dt As New DataTable()
	'int to hold the # of rows affected
	Dim row As Integer = 0
 
	Try
		'open the command objects connection
		cmd.Connection.Open()
		'set the adapters command property
		adapter.SelectCommand = cmd
		'now fill the table
		adapter.Fill(dt)
		'return the results
		Return dt
	Catch ex As SqlException
		Throw ex
	Catch ex As Exception
		Throw New Exception(ex.Message)
	Finally
		cmd.Connection.Close()
		adapter.Dispose()
	End Try
End Function