Ok,

das mit dem Select-Function hab ich verstanden!

1 Wert, mehr nicht... ist zumindest etwas

dann würd es so aussehen??

Code:
Public Function fct_getDataRelist(strIPAS400 As String, strIPUSER As String, strIPPASS As String)
Dim cnAS400 As ADODB.Connection, cmdAS400SQL As ADODB.Command, rsAS400 As ADODB.Recordset
    
    Set cnAS400 = CreateObject("ADODB.Connection")
    cnAS400.Provider = "IBMDA400"
    cnAS400.Properties("data source") = strIPAS400
    cnAS400.Properties(2) = strIPUSER
    cnAS400.Properties("Password") = strIPPASS
    cnAS400.Open
    
    Set cmdAS400SQL = CreateObject("ADODB.Command")
    Set rsAS400 = CreateObject("ADODB.recordset")
    rsAS400.CursorType = adOpenDynamic
    rsAS400.CursorLocation = adUseServer
    rsAS400.LockType = adLockReadOnly
    Set cmdAS400SQL.ActiveConnection = cnAS400
    
    cmdAS400SQL.CommandText = "select myFunc(...) as hugo from sysibm.sysdummy1"
    cmdAS400SQL.CommandType = adCmdText
    
    Set rsAS400 = cmdAS400SQL.Execute
        Do Until rsAS400.EOF = True
        
                CurrentDb.Execute "INSERT INTO tbl_ACCESSTABELLE (ACCESTABELLEWERT) VALUES " _
                & "('" & rsAS400("HUGO") & "')"
        
            rsAS400.MoveNext
        Loop

End Function
Richtig?

Aber wie ich das andere genaue nutzen soll mit den mehreren Parametern, versteh ich nicht..., tut mir leid bin da noch nicht so fit :<.

thomas.