Dim Db As New ADODB.Connection
Dim Rm As New ADODB.Recordset
 
If AccessConn = True Then
    Db.Provider = "Microsoft.Jet.OLEDB.4.0"
    Db.ConnectionString = DBPfad
    Db.Open
Else: Db.Provider = "SQLOLEDB.1"
      Db.ConnectionString = JDBConnect
      Db.Open
End If
 
Dim TabDef As New TableDef
Dim Feld As New Field
 
TabDef.Name = "Firmenkosten"
 
'Datenfeld #1
Feld.Name = "EinnahmeAusgabe"
Feld.Type = dbText
Feld.Size = 10
Feld.AllowZeroLength = True
TabDef.Fields.Append Feld
Set Feld = Nothing
...
Db.TableDefs.Append TabDef
Db.Close
 
Set TabDef = Nothing
Set Db = Nothing