Set ERwinField = ERwinRelation.CreateField(     "ID" )

ERwinField.ForeignName = ID

ERwinRelation.Fields.Append ERwinField

ERwinDatabase.Relations.Append ERwinRelation

'  CREATE RELATIONSHIP R/3

Set ERwinRelation = ERwinDatabase.CreateRelation(R/3, Журнал выдач, Клиенты)

Set ERwinField = ERwinRelation.CreateField(     "ID" )

ERwinField.ForeignName = ID

ERwinRelation.Fields.Append ERwinField

ERwinDatabase.Relations.Append ERwinRelation

ERwinDatabase.Close

ERwinWorkspace.Close

'  Terminating Access Basic DAO Session...

Приложение №2 Листинг программы

Class1

Imports System.Collections

Imports System.Windows.Forms

Public Class Class1

    Implements System.Collections.IComparer

    Private ColumnToSort As Integer

    Private OrderOfSort As SortOrder

    Private ObjectCompare As CaseInsensitiveComparer

    Public Sub New()

        ColumnToSort = 0

        OrderOfSort = SortOrder.None

        ObjectCompare = New CaseInsensitiveComparer()

    End Sub

    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare

        Dim compareResult As Integer