SAP Connection Though VB.Net to use RFC READTABLE Function

Hi community!; Some time ago I have an issue connecting to SAP to specific box using the following code:

Dim Local_SAPfunction As SAPFunctions = New SAPFunctions

With Local_SAPfunction.Connection

  .System = "L7P"

  .GroupName = Server

  .MessageServer = "Message_server"

  .SystemNumber = "SystemID"

  .Client = "Client"

  .User = "USER"

  .SNC = True

  .SNCName = "SNC_name"

  .SNCQuality = "SNC_quality"

  .CodePage = "Code_page"

  .SystemID = "Description"

End With

Dim vResult As Boolean = Local_SAPfunction.Connection.Logon(0, True)

References: SAPFunctionsOCX

As far as I know the issue is caused by the port where try to connect by default.

My questions are:

1. Exists a method to connect to an SAP Box specifying the port?

2. Exists an easier and more stable method to connect to SAP? (I always tried to connect with Single Sign On or with the user / password)

Any help related to this topic will be very valuable. Thanks in advance!