Forum Post: Cannot Create Business Object

I am using the docs and examples from the Sage University BOI class. I cannot get past a certain point. The user has full access rights. This line returns a number "20000001" Dim TaskID As Integer = oSS.nLookupTask("GL_Account_ui") This line returns a number "100004" instead of the expected 1 or 0 retVAL = oSS.nSetProgram(TaskID) Then of course this line fails oGLAccount = oScript.NewObject("GL_Account_bus", oSS) Complete Code Below:     Public Sub CreateConnectionDemo()         oScript = CreateObject("ProvideX.Script")         oScript.Init("M:\Best\Mas 200\Version4\Mas90\Home")         oSS = oScript.NewObject("SY_Session")         retVAL = oSS.nlogon()         If retVAL = 0 Then             User = Trim(InputBox("Enter User Name"))             Password = Trim(InputBox("Enter Password"))             retVAL = oSS.nSetUser(User, Password)         End If         If retVAL = 0 Then             MsgBox(oSS.sLastErrorMsg)             oSS.DropObject()             oSS = Nothing             oSS.WScript.Quit()         End If         retVAL = oSS.nSetCompany("TST")         If retVAL = 0 Then             MsgBox(oSS.sLastErrorMsg)             oSS.DropObject()             oSS = Nothing             oSS.WScript.Quit()         End If         retVAL = oSS.nSetDate("G/L", "20050315")         If retVAL = 0 Then             MsgBox("SetDate Failed - " & oSS.sLastErrorMsg)         Else             retVAL = oSS.nSetModule("G/L")             If retVAL = 0 Then                 MsgBox("SetModule Failed - " & oSS.sLastErrorMsg)             Else                 MsgBox("Current Company: " & oSS.sCompanyName & vbCrLf & "Company Data Path: " & oSS.sPathCompany & vbCrLf & "Current Module: " & oSS.sModuleName & vbCrLf & "Module Date: " & oSS.sModuleDate)             End If         End If         Dim TaskID As Integer = oSS.nLookupTask("GL_Account_ui")         retVAL = oSS.nSetProgram(TaskID)         If retVAL = 0 Then             oGLAccount = oScript.NewObject("GL_Account_bus", oSS)         Else             Dim mssg = oSS.sLastErrorMsg             MsgBox(mssg)         End If         MsgBox("Read Access:" & CStr(oSS.oSecurity.nReadAccess) & vbCrLf & "Create Access:" & CStr(oSS.oSecurity.nCreateAccess) & vbCrLf & "Modify Access:" & CStr(oSS.oSecurity.nModifyAccess) & vbCrLf & "Delete Access:" & CStr(oSS.oSecurity.nDeleteAccess))         If oSS.oSecurity.nCreateAccess = 1 Then             MsgBox("User Has Create Privilages")         Else             MsgBox("User Does Not Have Create Privilages")         End If         oSS.nCleanUp()         oSS.DropObject()         oSS = Nothing         oScript = Nothing     End Sub