wie sieht es denn mit diesem Treiber aus:

con_str = "Driver={iSeries Access ODBC Driver};System=my_system_name;Uid=myUsername;Pwd=m yPassword;"
cnn.Open(con_str)

Ist es dann die selbe Syntax:

Dim cnn As ADODB.Connection
Dim con_str AsString
Dim CallCmd As ADODB.Command
'Dim VAR1 As String
cnn = New ADODB.Connection

con_str = "Driver={iSeries Access ODBC Driver};System=SERVERNAME;Uid=USER;Pwd=PW;"
cnn.Open(con_str)

CallCmd = New ADODB.Command
CallCmd.CommandText = "CALL TRUMPFH.THYS00CTTR"
CallCmd.Execute(cnn)
cnn.Close()