String aus DB als Function aufrufen

[JMB]

Hallo,

ich lese aus einer Access-DB ein String(Funktionsname()) aus und diesen würde ich gerne ausführen. Ich habe es mit der Eval-Function probiert, dies Funktioniert leider nicht. Wie gehe ich vor?

Public Sub OnAction(control As IRibbonControl)
    Dim sfunction As Variant
    Dim SControlID As String
    SControlID = "ControlID='" & control.ID & "'"
    sfunction = DMin("sfunction", "USysControls", SControlID)
    Access.Eval (sfunction())

sfunction ist der Name der Funktion als String

Gruß JMB

PS: Ich wollte es zu VBA posten, leider bin ich in vb.net verrutscht und bekomme es nicht verschoben! Wäre ein Admin so freundlich, dies für mich zu verschieben? Danke

[JMB]

Gelöst:

Ich habe die Funktionen als SUB und nicht als FUNCTION deklariert, jetzt Funktioniert es (Funktionsnamen als String üvergeben und mit Eval ausgeführt).

Dim sfunction As Variant
Dim SControlID As String
SControlID = "ControlID='" & control.ID & "'"
sfunction = DMin("sfunction", "USysControls", SControlID)
Debug.Print Eval(sfunction)

Und schon springt er in die Function().