Interface IADO    WriteOnly Property Username() As String
    WriteOnly Property Password() As String
    WriteOnly Property Datasource() As String
    ReadOnly Property CurrentState() As String
End Interface
 
Class ClsADO : Implements IADO
    Private WithEvents oConnection As OracleConnection
    Private _Username As String = String.Empty
    Private _Password As String = String.Empty
    Private _Datasource As String = String.Empty
    Private _CurrentState As String
 
 
    Private WriteOnly Property Username() Implements IADO.Username
 
        Set(ByVal Value)
            _Username = Value
        End Set
    End Property
 
    Private WriteOnly Property Password() Implements IADO.Password
 
        Set(ByVal Value)
            _Password = Value
        End Set
    End Property
 
    Private WriteOnly Property Datasource() Implements IADO.Datasource
        Set(ByVal Value)
            _Datasource = Value
        End Set
    End Property
 
    ' Liefert den neuen Zustand der Verbindung
    Private ReadOnly Property CurrentState() Implements IADO.CurrentState
        Get
            Return _CurrentState
        End Get
    End Property
 
...