Set FunctionCtrl = CreateObject("SAP.Functions")
    Set SapConnection = FunctionCtrl.Connection
    SapConnection.client = "200"
    SapConnection.user = VarUser
    SapConnection.password = VarPasswort
    SapConnection.language = "DE"
    SapConnection.system = VarSystem
    '--------------------------------------------
    If SapConnection.Logon(0, True) <> True Then
        Err_Download = True
        EvtName = "E: - Fehler bei SAP-Logon"
        Protokoll EvtName
        Exit Sub
    End If
    '--------------------------------------------
    Set theFunc = FunctionCtrl.Add("RFC_READ_TABLE")
    Set Table = theFunc.Exports("QUERY_TABLE")
    Set Tfields = theFunc.Tables("FIELDS")
    Set Toptions = theFunc.Tables("OPTIONS")
    Set Tdata = theFunc.Tables("DATA")
'    theFunc.Exports("ROWSKIPS").Value = Startwert
'    theFunc.Exports("ROWCOUNT").Value = BlockGroesse
    '--------------------------------------------
    Set oFunction = CreateObject("SAP.Functions")
    oFunction.LogFileName = "C:\wdtflog.txt"
    oFunction.LogLevel = 9
    '--------------------------------------------
    Table.Value = "VBRP"
    Tfields.appendrow: Tfields(1, "FieldName") = "MANDT"
    Tfields.appendrow: Tfields(2, "FieldName") = "VBELN"
    '------------------
'        If theFunc.Call = True Then
        Set customers = theFunc.Tables.Item("DATA")
        Set customers_table = customers
        For Each customer In customers_table.Rows
            temp$ = customer("WA")
        Next
'        End If
    '---Abmelden-----------------------------------------
    FunctionCtrl.RemoveAll
    FunctionCtrl.Connection.Logoff
    '---usw.---