.NET (Core and Framework)

Imports System.Data
Imports system.Data.SqlClient

Public Class ListItemServer
    Inherits MarshalByRefObject
    Implements ILists
    Private mSQL As SqlConnection
    Private mDA As SqlDataAdapter

    Public Sub New()
        mSQL = New SqlConnection(Config.GetConnectionString)
        mDA = New SqlDataAdapter
    End Sub

#Region " Affiliation Types "
    Public Function GetAffiliations() As System.Data.DataSet &_
           Implements ILists.GetAffiliations
        Dim SelectCommand As New &_
            SqlClient.SqlCommand("tff_GetAffiliations", mSQL)
        mDA.SelectCommand = SelectCommand
        mDA.SelectCommand.CommandType = CommandType.StoredProcedure

        Dim Data As New DataSet("AffiliationTypes")
        mDA.Fill(Data)

        Return Data
    End Function

    Public Function UpdateAffiliations(ByVal Data As System.Data.DataSet) As DataSet  &_
           Implements ILists.UpdateAffiliations
        Dim SelectCommand As New &_
            SqlClient.SqlCommand("tff_GetAffiliations", mSQL)
        Dim InsertCommand As New &_
            SqlClient.SqlCommand("tff_AddAffilation", mSQL)
        Dim UpdateCommand As New &_
            SqlClient.SqlCommand("tff_UpdateAffiliation", mSQL)
        Dim DeleteCommand As New &_
            SqlClient.SqlCommand("tff_DeleteAffiliation", mSQL)

        SelectCommand.CommandType = CommandType.StoredProcedure
        InsertCommand.CommandType = CommandType.StoredProcedure
        UpdateCommand.CommandType = CommandType.StoredProcedure
        DeleteCommand.CommandType = CommandType.StoredProcedure

        With mDA
            .SelectCommand = SelectCommand
            .InsertCommand = InsertCommand
            .UpdateCommand = UpdateCommand
            .DeleteCommand = DeleteCommand
        End With

        With InsertCommand.Parameters
            ' Parameters
        End With

        With UpdateCommand.Parameters
            .Add("@AffiliationTypeID", SqlDbType.Int, 4, "AffiliationTypeID")
            ' Parameters
        End With

        With DeleteCommand.Parameters
            .Add("@AffiliationTypeID", SqlDbType.Int, 4, "AffiliationTypeID")
        End With

        Try
            mDA.Update(Data)
        Catch sqlex As SqlException
            Console.WriteLine(sqlex.Message)
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try

        Return Data
    End Function
#End Region
End Class

Public Interface ILists
    Function GetAffiliations() As DataSet
    Function UpdateAffiliations(ByVal Data As DataSet) As DataSet
End Interface

Dim Server as ILists = Activator.GetObject(GetType(ILists),URI)
Dim Data as DataSet
Data = Server.GetAffiliations()