Hallo,

hab das jetzt so eingetippt und esklappt :

Sub as400_SQL()
Dim cnn As ADODB.Connection
Dim SQL As String
Set cnn = New ADODB.Connection
'Verbindungsdaten
cnn.Open "Provider=IBMDA400;" & _
"Data Source=192.***.***.***;" & _
"User ID=*****;" & _
"Password=******;"

'SqlStatement
SQL = "create table blabla.sql001(feld1 integer not null, feld2 varchar(15), primary key (feld1))"
'.. ausführen
cnn.Execute SQL
' Verbindung schliessen
cnn.Close
End Sub

Vielen Dank ERIC