Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
Dim ds As DataSet
Dim rw As DataRow
Dim cl As DataColumn

Dim sSQL As String

sSQL = "select * from employees"

ds = RunSQLWithDataSet(sSQL, "Employees")

DataGrid1.DataSource = ds.Tables("Employees")

lblTraceListener.Text = Debug.Listeners.Item(0).Name

Debug.WriteLine("—————————————————" "————————")
Debug.WriteLine("                    Employee DS Data")

For Each rw In ds.Tables("Employees").Rows

Debug.Write(rw.Item("EmployeeID") & vbTab)
Debug.Write(rw.Item("LastName") & vbTab)
Debug.Write(rw.Item("FirstName") & vbTab)
Debug.Write(rw.Item("Title") & vbTab)
Debug.WriteLine(rw.Item("BirthDate"))
Next
Debug.WriteLine("—————————————————" "————————")

Public Function RunSQLWithDataSet(ByVal sSQL As String, _
    Optional ByVal sTable As String = "Table1") As DataSet
        Dim oDataSet As New DataSet()
        Dim oDataAdapter As SqlClient.SqlDataAdapter

        Try

            'Create New DataAdapter 
            oDataAdapter = New _
            SqlClient.SqlDataAdapter( _
            sSQL, ConnectionString)

            'Fill Data Set from dataadapter
            oDataAdapter.Fill(oDataSet, sTable)

            'Set return value of function
            Return oDataSet
        Catch e As Exception
            Throw New Exception( _
            "An exception occured in RunSQLWithDataSet", e)
        Finally
        End Try
End Function

Function ShowDSInOutputWindow(ByVal ds As DataSet, _
Optional ByVal sTable As String = "")

'Generic DataSet debug function
Dim cldebug As DataColumn
Dim tbdebug As DataTable
Dim rw As DataRow

If sTable = "" Then
    tbdebug = ds.Tables(0)
Else
    tbdebug = ds.Tables(sTable)
End If

Debug.WriteLine("—————————————————")
Debug.WriteLine(vbTab & vbTab & "DS Table: " & _
    tbdebug.ToString()) 
Dim bFirst As Boolean = True

For Each rw In tbdebug.Rows
  If bFirst Then
    For Each cldebug In tbdebug.Columns
      If cldebug.DataType.Name <> "Byte[]" Then
        Debug.Write( _
          cldebug.ColumnName & vbTab)
        End If
      Next cldebug
      Debug.WriteLine("")
        bFirst = False
    End If

  For Each cldebug In tbdebug.Columns
    If cldebug.DataType.Name <> "Byte[]" Then
      Debug.Write(rw.Item(cldebug) & vbTab)
    End If
  Next cldebug
            Debug.WriteLine("")
Next
Debug.WriteLine("—————————————————")
End Function