Public Sub Main()
 
Dim FundblattDb As Database
Dim FundblattRs As Recordset
Dim QueryTxt As String
Dim Database_Dir As String
Dim DatabaseName As String
 
 
 
Database_Dir = Datenbankpfad
Set DefaultWork = Workspaces(0)
 
DatabaseName = Datenbank
 
If Dir(Database_Dir & DatabaseName) = "" Then
    CreateFundblattDatabase Database_Dir & DatabaseName
End If
 
Set FundblattDb = DefaultWork.OpenDatabase(Database_Dir & DatabaseName)
QueryTxt = "Select * from Fundblatt"
Set FundblattRs = FundblattDb.OpenRecordset(QueryTxt)
 
FundblattDb.Close
End Sub

Public Sub Neu_Ok()
Dim FundblattDb As Database
Dim FundblattRs As Recordset
Const Database_Dir_Name = "Datenbankpfad"
 
Set DefaultWork = Workspaces(0)
Set FundblattDb = DefaultWork.OpenDatabase(Database_Dir_Name, _
  ,dbSecDBExclusive) '(Database_Dir_Name)
Set FundblattRs = FundblattDb.OpenRecordset("Artikel")
FundblattRs.AddNew
FundblattRs.Update
FundblattDb.Close
End Sub