主题：【发布后程序win10报错】请检索 LoaderExceptions 属性

加入msgbox定位是哪段代码报错？这段代码有问题？

        Select Case dr("FSsVarType")
            Case "Boolean"
                Vars.Add(dr("FSsVarName"),Gettype(Boolean),cbool(dr("FSsDefault")))
            Case "String"
                Vars.Add(dr("FSsVarName"),Gettype(String),Cstr(dr("FSsDefault")))
            Case "DateTime"
                Vars.Add(dr("FSsVarName"),Gettype(Date),Cdate(dr("FSsDefault")))
            Case "Int32"
               
                Vars.Add(dr("FSsVarName"),Gettype(Integer),Cint(dr("FSsDefault")))
            Case "Int16"
                Vars.Add(dr("FSsVarName"),Gettype(Short),Cshort(dr("FSsDefault")))
            Case "Byte"
                Vars.Add(dr("FSsVarName"),Gettype(Byte),CByte(dr("FSsDefault")))
            Case "Double"
                Vars.Add(dr("FSsVarName"),Gettype(Double),Cdbl(dr("FSsDefault")))
            Case "Single"
                Vars.Add(dr("FSsVarName"),Gettype(Single),Csng(dr("FSsDefault")))
            Case "Decimal"
                Vars.Add(dr("FSsVarName"),Gettype(Decimal),Cdec(dr("FSsDefault")))
            Case "Text"
                Vars.Add(dr("FSsVarName"),Gettype(String),Cstr(dr("FSsDefault")))
        End Select