はじめまして。
表題にも書きましたとおり、SAP ActiveXコントロールを使用して、
R/3システムの機能を呼び出すことをしなければ、いけなくなってしまいました。

やるべきことは、VBのソースをいただいたので、それをPBに
焼きなおす作業なのですが、
いかんせんわかりません。

どなたか、有識者の方、御助言よろしくお願いいたします。

VBソース
Private Sub Form_Load()
Dim RFCfuntion As Object
Dim Connections As Object
Dim ComFunction1 As Object
Dim Data1       As Object
Dim Field1      As Object
Dim Optioni1    As Object
Dim i           As Integer
Dim StrName     As String

Set RFCfuntion = CreateObject(\"SAP.Functions\")

If RFCfuntion Is Nothing Then
  MsgBox \"NG\"
  Exit Sub
End If

Set Connections = RFCfuntion.Connection

\'通信情報設定
Connections.System = \"000\"
Connections.ApplicationServer = \"111.222.333.444\"
Connections.SystemNumber = \"00\"
Connections.Client = \"999\"
Connections.User = \"TestUser\"
Connections.Password = \"******\"
Connections.Language = \"JA\"

If Connections.Logon(0, True) <> True Then
    Set Connections = Nothing
    MsgBox \"NG\"
    Exit Sub
End If

Set ComFunction1 = RFCfuntion.Add(\"RFC_READ_TABLE\")

\'得意先名称の取得
Set Data1 = ComFunction1.Tables(\"DATA\")
Set Field1 = ComFunction1.Tables(\"FIELDS\")
Field1.FreeTable

Field1.AppendRow
Field1(1, \"FIELDNAME\") = \"NAME1\" \'名称

Set Optioni1 = ComFunction1.Tables(\"OPTIONS\")
Data1.FreeTable
ComFunction1.Exports(\"QUERY_TABLE\") = \"AAA1\"

Optioni1.AppendRow
Optioni1(1, \"TEXT\") = \"BBBBB = \" + \"\'00000000\'\"

\'ComFunction1.Call
If ComFunction1.Call <> True Then
\'    ComFunction1.Logoff
    MsgBox \"Callが失敗しました。例外:\" & ComFunction1.Exception
ELSE
    StrName = Data1(1, \"AAA\")
    lblMsg.Caption = \"入力されたコードは\" & StrName & \"です。\"
End If

Set ComFunction1 = Nothing

End Sub

続く