VB调用RFC接口连接SAP系统

这是一个VB调用RFC接口连接SAP系统的实例：

VB调用RFC接口连接SAP系统的具体相关代码
Private Sub SAP_Connect()
Dim IngRows, IngRows1 As String
        Dim Rows, Rows1 As String
        Dim RFC_Read1, RFC_Read2, RFC_Read3 As String


        ' 调用SAP控件
        Set Functions = CreateObject("Sap.Functions")
        ' 创建RFC的本地对象
        Set Connect = Functions.Connection
        ' 设置连接
        Connect.ApplicationServer = "10.0.0.172"
        Connect.Client = "300"
        Connect.SystemNumber = "00"
        Connect.Language = "ZH"
        Connect.User = "RFC_SC"
        Connect.password = "123456"

        ' 软件登录SAP并判断
        If Not Connect.logon(0, True) Then

            MsgBox "登录SAP R/3失败，请重新登录!" + Err.Description, vbOKOnly + vbExclamation, "系统提示"
        Else

            MsgBox "登录SAP R/3成功!" + Err.Description, vbOKOnly + vbExclamation, "系统提示"
            '调用SAP接口函数参数输入
            Set func = Functions.Add("ZZMM_002")

            '输入筛选参数设定参数输入
            'func.Exports("I_ZYWMS") = "01"
            'func.Exports("I_AEDAT") = "00000000"
            'func.Exports("I_WERKS") = "1000"
            'func.Exports("I_AEZEIT_BEGIN") = "000000"
            func.Exports("I_STARTDAT") = "20191018"
            func.Exports("I_ENDDAT") = "20191018"

            If func.call = True Then
                '输出表头设定参数输入
                Set oGetbas_part_bjTab = func.Tables("T_OUTPUT1")
                '数据条数确定参数输出
                IngRows = oGetbas_part_bjTab.RowCount
                Rows = 1
                '输出表头设定参数输入
                RFC_Read1 = oGetbas_part_bjTab(Rows, "MATNR")
                RFC_Read2 = oGetbas_part_bjTab(Rows, "ATWRT")

                'Set oGetbas_part_bjTab1 = func.Tables("T_PROD")
                '数据条数确定参数输出
                'IngRows1 = oGetbas_part_bjTab1.Rowcont
                'Rows1 = 1
                '输出表头设定参数输入
                'RFC_Read3 = oGetbas_part_bjTab1("Rows", "MATNR")
                Text1.Text = RFC_Read2
                'Debug.Print IngRows
                'Debug.Print RFC_Read1
                'Debug.Print RFC_Read2
            Else
                MsgBox "调用函数失败!" + Err.Description, vbOKOnly + vbExclamation, "系统提示"
                
            End If

        End If
End Sub