Hallo Eric,

versuch es mal so:


Option Explicit
Sub as400_SQL()
Dim cnn As ADODB.Connection
Dim CallCmd As String
Dim SQL As String
Set cnn = New ADODB.Connection

'Verbindungsdaten
cnn.Open "Provider=IBMDA400;" & "Data Source=192.***.***.***;" & "User ID=*****;" & "Password=*****;"

'SqlStatement
SQL = "CREATE TABLE [MyTable] (" & _
"[FieldA] [int] NOT NULL , " & _
"[FieldB] [varchar] (30) NOT NULL)"
'.. ausführen
cnn.Execute SQL

' Verbindung schliessen
cnn.Close
End Sub