Private Function CreateDB()
 
Dim db As Database, tble As TableDef, fld As Field
 
If Dir("f:\BO Reporter\reporter.mdb") = "reporter.mdb" Then Exit Function
 
Set db = DBEngine.CreateDatabase("f:\BO Reporter\reporter.mdb", dbLangGeneral)
 
Set tble = db.CreateTableDef("Documents")
 
With tble
 
    .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

Dim db As Database, rs As Recordset
 
Set db = DBEngine.OpenDatabase("f:\BO Reporter\reporter.mdb")
 
Set rs = db.OpenRecordset("Documents")