Public ERP As Object
Public connect As Object
Public sapModule As Object
Public renturn As Object
Public tab As Object
Public Function Logon() As Boolean
If connect Is Nothing Then
Set ERP = CreateObject("SAP.Functions")
Set connect = ERP.Connection
connec