ADO.NET Code executing stored procedure

Imports System
Imports System.Data
Imports System.Data.SqlClient

Private Function FillForm()
      Dim myConn As New SqlConnection()
      Dim Parm As New SqlParameter()
      Dim dr As SqlDataReader
      myConn.ConnectionString = "data source=(local);initial catalog=Jobs;integrated security _
       =SSPI;persist security info=False;workstation id=XYZ;packet size=4096"
      myConn.Open()
      Dim cmd As SqlCommand = New SqlCommand("Select_Employer", myConn)
      cmd.CommandType = CommandType.StoredProcedure
      Parm = cmd.Parameters.Add("@EmployerId", SqlDbType.Int, 9)
      Parm.Value = 1
      dr = cmd.ExecuteReader()
      If (dr.Read = True) Then
            txtName.Text = dr("UserName")
      end if
      dr.Close()
      dr = Nothing
      cmd.Connection.Close()
      myConn.Close()
End Function