Public rst As DAO.Recordset
 
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox ("Bitte einen Titel angeben!")
Else
Set db = OpenDatabase(App.Path & "\vids.mdb")
Set rst = db.OpenRecordset("Videos", dbOpenDynaset)
rst.AddNew
With rst
!Titel = Text1.Text
!Pfad = videopath
.Update
db.Close
Set rst = Nothing
End With
End If
End Sub
 
 
Private Sub Form_Load()
Text2.Text = Form1.videopath
Dim fileexists As Boolean
Dim strfile As String
strfile = "vids.mdb"
On Error Resume Next
fileexists = (Len(Dir(strfile)) > 0)
If fileexists = False Then
Dim db As DAO.Database
Dim dbfile As String
Dim feld As New DAO.Field
 
 
 
dbfile = App.Path + "\vids.mdb"
Set db = Workspaces(0).CreateDatabase(dbfile, dbLangGeneral, dbEncrypt + _
  dbVersion30)
Dim tabelle As New DAO.TableDef
Set tabelle = db.CreateTableDef("Videos")
feld.Name = "Titel"
feld.Type = Text
tabelle.Fields.Append feld
Set feld = Nothing
feld.Name = "Pfad"
feld.Type = dbLong
tabelle.Fields.Append feld
Set feld = Nothing
db.TableDefs.Append tabelle
db.Close
Set tabelle = Nothing
Set db = Nothing
Else
Set db = OpenDatabase("vids.mdb")
End If
End Sub