Dim myLogon         As New SAPLogonCtrl.SAPLogonControl
Dim myConnection    As New SAPLogonCtrl.Connection
Dim myTable         As New SAPTableFactoryCtrl.SAPTableFactory
Dim myFunction      As New SAPFunctionsOCX.SAPFunctions 

Sub MySub01()
    Set myConnection = myLogon.NewConnection
   
    myConnection.ApplicationServer = ""
    myConnection.System = ""
    myConnection.client = ""
    myConnection.language = ""
    myConnection.User = ""
    myConnection.Password = ""
       
    If myConnection.Logon(0, True) <> True Then
        Sheet1.Cells(1, 1) = "Connection SAP: False"
        Stop
    Else
        Sheet1.Cells(1, 1) = "Connection SAP: True"
    End If
Set myFunction.Connection = myConnection                  <== выскакивает ошибка 429
End Sub

Set myTableName = myTable.NewStructure
    lngTmp = myTableName.CreateFromR3Repository(myConnection, "lfb1")

    For lngIdx = 1 To myTableName.ColumnCount
       Sheet1.Cells(lngIdx + 2, 1) = myTableName.ColumnName(lngIdx) & " = " & _
       myTableName.ColumnLength(lngIdx)
    Next