Public Class SqlDatabase
 
    Public Function Execute(param As String) As Boolean
        ' ...
        Return False
    End Function
End Class
 
 
Public Class ServiceMain
    Private _Database As UIDatabase = New UIDatabase
    ' ...
 
    Public Sub DoAnything()
        _Database.Geräte.Register("Test")
    End Sub
 
 
    Protected Class UIDatabase
        Inherits SqlDatabase
 
        Public Geräte As New Devices(Me)
 
        Public Structure Devices
            Private DummyMember As String
            Private uid As UIDatabase
 
            Public Sub New(uid As UIDatabase)
                Me.uid = uid
            End Sub
 
            Public Function Register(Nm As String) As Boolean
                Return uid.Execute("INSERT INTO Devices (Name) VALUES (" & Nm & _
                  ")")
            End Function
        End Structure
 
    End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist