Как ссылаться на данные, которые хранятся в таблице для кода VBA?

Question

Я хочу запустить свои коды, которые хранятся в указанном c поле таблицы в текстовом виде. Моя таблица содержит следующие поля: CodeID как int RibbonTabID как Nvarchar (50) ActionButtonCode как ntext. Я создаю пользовательскую ленту в доступе и называю идентификатор этой кнопки как «B_01». В моей таблице я пишу B_01 в поле RibbonTabID и "DoCmd.OpenForm" Loginform ",,,, acDialog" в поле ActionButtonCode. Я пишу этот код в VBA для выполнения действия в поле спецификаций c.

Public Sub OnActionButton(control As IRibbonControl)
'Callbackname in XML File "onAction"

    Select Case control.id
       Case control.id
        Dim RunAction As String
        Dim dbHadish As DAO.Database
        Dim rstEmployees As DAO.Recordset
        Dim strFirstName As String


        Set dbHadish = CurrentDb
        Set rstEmployees = dbHadish.OpenRecordset("dbo_tblOnActionButton", dbOpenDynaset, dbSeeChanges)

        rstEmployees.MoveFirst
        strFirstName = rstEmployees!ActionCode

        Shell (strFirstName)

        Case Else
            MsgBox "Button " & control.id & " click"
        End Select
End Sub

Этот фрагмент не работает. Я также использую Dlookup, как показано ниже, но этот код также не работает.

        Dim RunAction As String
        Set RunAction = DLookup("[ActionCode]", "[dbo_tblOnActionButton]", "[RibbonTabID] = '" & "B_10" & "'")
        Eval (RunAction)