Using conn = New EntityConnection("name=ProvaEDMEntities")
            Using comm = conn.CreateCommand()

                Dim param As EntityParameter = New EntityParameter()
                param.DbType = Data.DbType.Int32
                param.ParameterName = "CodRet"
                param.Direction = Data.ParameterDirection.Output

                comm.CommandType = Data.CommandType.StoredProcedure
                comm.CommandText = "ProvaEDMEntities.GetOneOperatore"
                comm.Parameters.Add(param)

                conn.Open()
                comm.ExecuteNonQuery()
                'Dim eDR = comm.ExecuteReader(System.Data.CommandBehavior.SequentialAccess)
                'GridView2.DataSource = eDR
                'GridView2.DataBind()

                Label5.Text = comm.Parameters("CodRet").Value
                If conn.State = Data.ConnectionState.Open Then
                    conn.Close()
                End If
            End Using
        End Using