Private Function RunScript(ByVal sScript As String) As String
        RunScript = ""
        Dim a As System.Reflection.Assembly = Nothing
        Try
            a = DataService.Setup.Assemblies(sScript.GetHashCode.ToString)
        Catch ex As Exception
            a = CreateAssembly(sScript)
            If a Is Nothing Then
                Exit Function
            Else
                DataService.Setup.Assemblies.Add(a, sScript.GetHashCode.ToString)
            End If
        End Try
        Try
            Dim o As Object = a.CreateInstance("GSEngine.Script")
            Dim t As Type = o.GetType()
            Dim pi As PropertyInfo = t.GetProperty("Engine")
            Dim mi As MethodInfo = t.GetMethod("EvalCode")
            Dim s As Object = mi.Invoke(o, Nothing)
            Return s
        Catch ex As Exception
            mErrors.AddItem(clsErrors.ErrorType.ertSystem, 9999, ex.Message, OBJ_NAME, "RunScript")
        End Try
    End Function

    Private Function CreateAssembly(ByVal sScript As String) As System.Reflection.Assembly
        On Error GoTo errh
        Dim c As VBCodeProvider = New VBCodeProvider()
        Dim cp As CompilerParameters = New CompilerParameters()
        cp.ReferencedAssemblies.Add("system.dll")
        cp.ReferencedAssemblies.Add("system.xml.dll")
        cp.ReferencedAssemblies.Add("system.data.dll")
        cp.ReferencedAssemblies.Add(System.Reflection.Assembly.GetExecutingAssembly.Location)
        cp.CompilerOptions = "/t:library"
        cp.GenerateInMemory = True
        ' Complete the user code so that it can be compiled
        Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder("")
        sb.AppendLine("Imports System")
        sb.AppendLine("Imports System.IO")
        sb.AppendLine("Imports System.Xml")
        sb.AppendLine("Imports System.Data")
        sb.AppendLine("Imports GSTypeLib")
        sb.AppendLine("Imports GSEngine")

        sb.AppendLine("Namespace GSEngine ")

        sb.AppendLine("Public class Script")
        sb.AppendLine("Dim mEngine as clsEngine")

        sb.AppendLine("Public Property Engine() As clsEngine")
        sb.AppendLine("    Get")
        sb.AppendLine("        Engine=mEngine")
        sb.AppendLine("    End Get")
        sb.AppendLine("    Set(ByVal value As clsEngine)")
        sb.AppendLine("        mEngine=value")
        sb.AppendLine("    End Set")
        sb.AppendLine("End Property")

        sb.AppendLine("public function EvalCode() as object")

        sb.AppendLine(sScript)

        sb.AppendLine("End Function")

        sb.AppendLine("End Class")
        sb.AppendLine("End Namespace")

        Dim cr As CompilerResults = c.CompileAssemblyFromSource(cp, sb.ToString())
        If cr.Errors.HasErrors Then
            Dim er As CompilerError
            For Each er In cr.Errors
                ' mErrors.AddItem(clsErrors.ErrorType.ertSystem, , er.ErrorText, OBJ_NAME, "RunScript")
            Next
            Return Nothing
        End If
        Return cr.CompiledAssembly
    End Function