贴两个函数,用来获取版本号及判断是否运行版本:Function GetAccessVersion() As String   '获取版本号  GetAccessVersion =SysCmd(acSysCmdAccessVer)End FunctionFunction IsRuntime()                            '判断是否运行版本          On Error GoTo ErrIsRuntimeIsRuntime =SysCmd(6)ExitIsRuntime:         Exit FunctionErrIsRuntime:    If (Err =5) Then        IsRuntime =False    Else        Error Err    End If    Resume ExitIsRuntimeEnd Function