Strange error when using a button to connect to server and database

Greetings experts,

I am starting to run into a strange error when I send my users a "connection" button. This button adds a connection document to the user's address book and then opens the database. The code  for the button is listed below. The error message can be seen in the image below. I already have the server listed in the code as a trusted server in the address book.

I am on Domino 8.0.2 on a Windows 2003 Enterprise server. The users appear to be on 8.5. I won't be upgrading any time soon. Is there any other way to resolve this?

Thank you.

Dim s As New NotesSession
	Dim dbL As NotesDatabase
	Dim viewCon As NotesView
	Dim docL As NotesDocument
	Dim nn As NotesName
	Dim itmP As NotesItem
	Dim db As NotesDatabase
	Dim dc As NotesDocumentCollection
	
	server$ ="SWGAPPS/SWGS"
	ip2$ = "9.42.4.185"
	path$ = "zapps\seccon.nsf"
	' access local Address Book
	Set dbL = s.GetDatabase("", "names.nsf", False)
	If Not (dbL Is Nothing) Then
		Set viewCon = dbL.GetView("Connections")
		Set nn = New NotesName(server$)
		Set dc = viewCon.GetAllDocumentsByKey(nn.Abbreviated, True)
		If dc.Count > 0 Then
			Call dc.RemoveAll(True)
			Set db = s.GetDatabase(ip2$, path$)
		End If
		Set docL = dbL.CreateDocument
		Set itmP = docL.ReplaceItemValue("LanPortName", "TCPIP")
		With docL
			.ConnectionType = "0"
			.OptionalNetworkAddress = ip2$
			.PhoneNumber = ip2$
			.MailThreshold = 5
			.PortName = itmP.Values
			.RepPriority = "0"
			.Type = "Connection"
			.Destination = server$
			.Form = "local"
		End With
		Call docL.ComputeWithForm(True, True)
		Call docL.Save(True, True)
	End If
	If db Is Nothing Then
		Set db = s.GetDatabase(ip2$, pathTR$)
	End If
	
	' Open Team Room
	Dim w As New NotesUIWorkspace
	
	Print "wait ...opening ... "
	Call w.OpenDatabase(server$, path$)

Select allOpen in new window

error.JPG