Hallo,

danke für die schnelle Antwort, ohne Abfrage "knallt" es beim 2.Lauf, denn die Tabelle ist ja schon da, dann:

Dim RCD As ADODB.Recordset oder?
und dann den Select, worauf ???
(select lib/file)

es lief durch und keine Fehlermeldung mehr, hatte :

...

'SqlStatement
SQL = "create table blabla.sql001(feld1 integer not null, feld2 varchar(15), primary key (feld1))"
'.. ausführen

on error resume next
err.clear
set rcd = cnn.execute("select blabla/sql001")
if err.number <> 0 then
SQL = "create table blabla.sql012(feld1 integer not null, feld2 varchar(15), primary key (feld1))"
'.. ausführen
cnn.Execute SQL
end if
' Verbindung schliessen
cnn.Close
End Sub


Eine sql012 gibt es leider nicht und auch keine Fehler ! Wo ist mein Fehler ?

Danke im Voraus ERIC