Need to use Open Session of Reflections 2014 from MS Access

[CraigDMC52]

Hi

Company switching from PCOMM to Reflections. Users can have several sessions of IBM open prior to opening the database.
Currently we check if more than one session is running and give the user list to select which is appropriate for the task they need to complete.

Tried:
dim sys as object
set sys = getObject("RIBM")

but that picks up the first session only

Tried:
Public Sub DealWithReflections()
Dim App As Attachmate_Reflection_Objects_Framework.ApplicationObject
Dim Terminal As Attachmate_Reflection_Objects_Emulation_IbmHosts.IbmTerminal
Dim Frame As Attachmate_Reflection_Objects.Frame
Dim View As Attachmate_Reflection_Objects.View
Dim MyScreen As Attachmate_Reflection_Objects_Emulation_IbmHosts.IbmScreen
Dim txt As String
'SavedSpace_PathWay is the pathway to the Attachmate Reflections .rd3x file
savedspace_pathway = "C:\Program Files (x86)\Attachmate\Reflection\Private\vision+.rd3x"
On Error Resume Next
Set App = GetObject(, "Attachmate_Reflection_Objects_Framework.ApplicationObject")

On Error GoTo 0
If (App Is Nothing) Then
Set App = CreateObject("Attachmate_Reflection_Objects_Framework.ApplicationObject")

If (App Is Nothing) Then
MsgBox "Unable to create object of Reflection system. The macro execution is interrupted."
Exit Sub
Else
Set Terminal = App.CreateControl(savedspace_pathway)
End If
Else

Set Terminal = App.CreateControl(savedspace_pathway)

End If

Set Frame = App.GetObject("Frame")
Frame.Visible = True
AppActivate Frame.Name

On Error Resume Next

Set View = Frame.CreateView(Terminal)
On Error GoTo 0
Set MyScreen = Terminal.screen
MyScreen.SendControlKeySync (ControlKeyCode_Home)

With MyScreen
[...]
end with


But this gives a new session that will require login....

Any advice welcome

Cheers