ADO Database VB.Net

Imports System
Imports System.Data
Imports System.Data.SqlClient
public class MainClass
   Shared Sub Main()
      Dim thisConnection As New SqlConnection("server=(local)\SQLEXPRESS;" & _
          "integrated security=sspi;database=MyDatabase")
      'Sql Query 1
      Dim sql1 As String ="SELECT FirstName, LastName FROM Employee;  "
      'Sql Query 2
      Dim sql2 As String ="SELECT LastName, FirstName FROM Employee;"
      'Combine queries
      Dim sql As String = sql1 & sql2
      'Create Command object
      Dim thisCommand As New SqlCommand _
         (sql, thisConnection)
      Try
         ' Open Connection
         thisConnection.Open()
         Console.WriteLine("Connection Opened")
         ' Execute Query
         Dim thisReader As SqlDataReader = thisCommand.ExecuteReader()
         ' Loop through result sets
         Do
            ' Fetch Data
            While (thisReader.Read())
               Console.WriteLine("{0} | {1}", _
               thisReader(0), _
               thisReader(1))
            End While
            Console.WriteLine("".PadLeft(60, "="))
         Loop While (thisReader.NextResult())
         'Close DataReader
         thisReader.Close()
      Catch ex As SqlException
         ' Display error
         Console.WriteLine("Error: " & ex.ToString())
      Finally
         ' Close Connection
         thisConnection.Close()
         Console.WriteLine("Connection Closed")
      End Try
   End Sub
End Class