Private Function CreateDB()
  Dim db As Database
  Dim tble As New TableDef
 
  If Dir("f:\BO Reporter\reporter.mdb") = "reporter.mdb" Then Exit Function
 
  Set db = DBEngine.CreateDatabase("f:\BO Reporter\reporter.mdb", dbLangGeneral)
  With tble
    .Name = "Documents"    
    .Fields.Append .CreateField("Document", dbText, 50)
    .Fields.Append .CreateField("Report", dbText, 50)
    .Fields.Append .CreateField("ToDo", dbText, 50)
    .Fields.Append .CreateField("Pfad", dbText, 50)
    .Fields.Append .CreateField("Copys", dbInteger)
  End With
  db.TableDefs.Append tble
  db.Close
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de