Visual Basic - Llamadas a Subrutinas

Hola a todos, necesito vuestra ayuda:
A partir de una tabla de la base de datos genero los botones en un 'Toolbar', en dicha tabla también tengo en una campo la accion que quiero que se realice cuando se pulsa el botón.

No se como hacer para que me haga la llamada a la subrutina correspondiente

este es parte del código que utilizo:

Dim Sql as String
Dim SsysPantallasToolbar As New ADODB.Recordset
If Conexion.State = 0 Then
ConectarSQLADO Apli_Servidor, Apli_BaseDatos, Apli_Usuario, Apli_Contraseña
End If
Sql = "SELECT SsysPantallasToolbar.* FROM SsysPantallasToolbar "
Sql = Sql & "WHERE SsysPantallasToolbar.CodigoEmpresa = " & Apli_CodigoEmpresa & " "
Sql = Sql & "AND SsysPantallasToolbar.Pantalla = '" & Me.Name & "' "
Sql = Sql & "AND SsysPantallasToolbar.idImagen = '" & Button.Key & "' "
SsysPantallasToolbar.CursorLocation = adUseClient
SsysPantallasToolbar.Open Sql, Conexion, adOpenDynamic, adLockOptimistic
If SsysPantallasToolbar.RecordCount > 0 Then
SsysPantallasToolbar.MoveFirst
'AQUI ESTA EL PROBLEMA,
'¿COMO HAGO PARA LLAMAR LA SUBRUTINA QUE HAY GRABADO EN EL CAMPO
'[Calculo] de la tabla [SsysPantallasToolbar] ?

'IMAGINAROS QUE HAY GRABADO 'Agregar' en el campo [Calculo], sería así:
Call Agregar
End If
If SsysPantallasToolbar.State = 1 Then
SsysPantallasToolbar.Close
End If

Private sub Agregar()
........
........
........
End Sub


Muchas Gracias