&& I dont see where you assign a object reference to the variable
&& "theFunc" in your VB code - so you have to adjust this ..
i_auf = theFunc.tables.Item("I_AUF")

SELECT yourTable
SCAN
auftrag = i_auf.AppendRow()
auftrag("AUFNR") = ALLTRIM(yourTable.auftragsnr)
auftrag("AUART") = ALLTRIM(yourTable.auftragsart)
...
ENDSCAN

...
functionCtrl.Connection.Logoff()
sapConnection = .NULL.
functionCtrl = .NULL.