Private Sub CreateMyDataBase()
    Dim DB As DataBase
    Dim Tbl As TableDef
 
    If Dir(CurDir("") & "Test.MDB") = "" Then
         'Das gründet die Datenbank"
          Set DB = DBEngine.CreateDatabase(CurDir("") & "Test.MDB", _
            dbLangGeneral, dbEncrypt)
 
        'Tabellchen dazu ...
        Set Tbl = DB.CreateTableDef("WorkTab")
        With Tbl
             .Fields.Append .CreateField("Name", dbText, 50)
             .Fields.Append .CreateField("Vorname", dbText, 50)
        End With
        DB.TableDefs.Append tbl
   End If
   DB.Close
End Sub