Visual Basic

Public Interface IGridMarkable
    ReadOnly Property sort() As Short
    Property valid() As SqlBoolean
    ReadOnly Property must() As Boolean
End Interface

Public Class product
        Implements IGridMarkable

#Region "private member vars"        
        Private _sort As Long        
        Private _valid As SqlBoolean = SqlBoolean.Null
        Private _must As Boolean        
#End Region

#Region "properties"
        Public ReadOnly Property sort() As Short Implements IGridMarkable.sort
            Get
                Return Me._sort
            End Get
        End Property
        Public ReadOnly Property must() As Boolean Implements IGridMarkable.must
            Get
                Return _must
            End Get
        End Property
        Public Property valid() As SqlBoolean Implements IGridMarkable.valid
            Get
                Return _valid
            End Get
            Set(ByVal value As SqlBoolean)
#If DEBUG Then
                Debug.WriteLine("Produkt: " + Me.sort.ToString + " valid: " + value.ToString)
#End If
                _valid = value
            End Set
        End Property
#End Region
End Class

Dim list As New Dictionary(Of Short, IGridMarkable)
list.Add(some short, New Product())
someClass.setRef(list)

Public Declare Auto Function SQLConfigDataSource Lib "ODBCCP32.DLL" _<br />
    (ByVal hwndParent As Integer, ByVal fRequest As Integer, _<br />
     ByVal lpszDriver As String, ByVal lpszAttributes As String) As Integer<br />
<br />
Private Const ODBC_ADD_SYS_DSN As Integer = 4<br />
 <br />
<br />
Private Sub Create_DSN_For_Crystal_Reports()<br />
  Try<br />
    Dim attributes As New System.Text.StringBuilder()<br />
    Dim returnCode As Integer<br />
<br />
    attributes.Append("DSN=MyCrystalDSN")<br />
    attributes.Append(Chr(0))<br />
    attributes.Append("Server=MyDBServer")<br />
    attributes.Append(Chr(0))<br />
    attributes.Append("Description=DSN added via code from My VB App")<br />
    attributes.Append(Chr(0))<br />
    attributes.Append("Database=MyDatabase")<br />
    attributes.Append(Chr(0))<br />
    attributes.Append("AnsiNPW=Yes")<br />
    attributes.Append(Chr(0))<br />
    attributes.Append("QuotedId=Yes")<br />
    attributes.Append(Chr(0))<br />
    attributes.Append("Trusted_Connection=Yes")<br />
    attributes.Append(Chr(0))<br />
    attributes.Append(Chr(0))<br />
<br />
    returnCode = SQLConfigDataSource(0&, ODBC_ADD_SYS_DSN, "SQL Server", attributes.ToString)<br />
<br />
    If returnCode <> 1 Then<br />
       Throw New Exception("DSN could not be setup to allow Crystal Reports access")<br />
    End If<br />
  Catch ex as Exception<br />
    msgbox(ex.message)<br />
  End Try<br />
End Sub