Check conexión internet

Public Function coneccionInternet() As Boolean
        Dim resp As Boolean = False
        Dim url As String = "http://clients3.google.com/generate_204"
        Try
            Using client = New WebClient() ' Imports system.net
                Using client.OpenRead(url)
                    'resp = True
                    Return True
                End Using
            End Using
        Catch ex As Exception
        End Try
        Return False
    End Function


fuente

Ejecutar procedimiento almacenado con using

Dim con As New SqlConnection(conex)

con.Open()
Using cmd As New SqlCommand("SP_nombre_sp", con)
        cmd.CommandType = CommandType.StoredProcedure
        cmd.Parameters.Add("@rut", SqlDbType.VarChar).Value = rut.
        cmd.Parameters.Add("@usuario", SqlDbType.VarChar).Value = usuario.
        cmd.Parameters.Add("@clave", SqlDbType.VarChar).Value = clave
        resp = cmd.ExecuteScalar()
End Using
con.Close()

Otra opción

 con.Open()
 Dim cmd As System.Data.SqlClient.SqlCommand = Nothing
 cmd = New System.Data.SqlClient.SqlCommand("SP_nombre_sp", con)
 cmd.Parameters.Add("@rut", SqlDbType.VarChar).Value = rut.Trim
 cmd.Parameters.Add("@usuario", SqlDbType.VarChar).Value = usuario
 cmd.Parameters.Add("@clave", SqlDbType.VarChar).Value = clave
 cmd.CommandType = CommandType.StoredProcedure
 resp = cmd.ExecuteScalar()
 con.Close()