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")
      'Create Command object
      Dim nonqueryCommand As SqlCommand = thisConnection.CreateCommand()
      Try
         ' Open Connection
         thisConnection.Open()
         Console.WriteLine("Connection Opened")
         'Create Command objects
         Dim scalarCommand As New SqlCommand("SELECT COUNT(*) FROM Employee", thisConnection)
         ' Execute Scalar Query
         Console.WriteLine("Before INSERT, Number of Employees = {0}", _
            scalarCommand.ExecuteScalar())
         ' Set up and execute DELETE Command
         nonqueryCommand.CommandText = _
            "DELETE FROM Employee WHERE " & _
            "Firstname='A' AND Lastname='A'"
         Console.WriteLine("Executing {0}", nonqueryCommand.CommandText)
         Console.WriteLine("Number of rows affected : {0}", _
            nonqueryCommand.ExecuteNonQuery())
         ' Execute Scalar Query
         Console.WriteLine("After Delete, Number of Employee = {0}", _
            scalarCommand.ExecuteScalar())
      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