'Variablen für Sql-Statement
Dim meinFeldString As String, meinCreateString As String, meinSqlString As _
  String
 
'Create Table Teil des Sql-Statements
meinCreateString = "CREATE TABLE tbl_Routeergebnis (Schleife CHAR(50), "
 
'Teil des Sql-Statements mit den Fahrt-Feldern
For Fahrtzähler = 1 To 245
    meinFeldString = "Fahrt" & CStr(Fahrtzähler) & " TIME, "
Next Fahrtzähler
 
'Sql-Statement zusammen setzen
meinSqlString = meinCreateString & meinFeldString & ");"
 
'Sql-Statement ausführen
SQLMY =  meinSqlString
CoDB.Execute SQLMY

Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it. (Brian W. Kernighan)