Public Sub CreateDatabase(sPfad As String)
    Dim Datenbank As Database
    '--
    Set Datenbank = Workspaces(0).CreateDatabase(sPfad, _
        dbLangGeneral, dbVersion30)
    '--
    Dim Tabelle As New TableDef
    Dim Feld As New Field
    '--
    Tabelle.Name = "Personen"
    '--
    Feld.Name = "ID"
    Feld.Type = dbLong
    Feld.Attributes = dbAutoIncrField
    Tabelle.Fields.Append Feld
    Set Feld = Nothing
    '--
    Feld.Name = "Vorname"
    Feld.Type = dbText
    Feld.Size = 30
    Feld.AllowZeroLength = True
    Tabelle.Fields.Append Feld
    Set Feld = Nothing
    '--
    Feld.Name = "Nachname"
    Feld.Type = dbText
    Feld.Size = 30
    Feld.AllowZeroLength = True
    Tabelle.Fields.Append Feld
    Set Feld = Nothing
    '--
    Datenbank.TableDefs.Append Tabelle
    Datenbank.Close
    Set Tabelle = Nothing
    Set Datenbank = Nothing
End Sub

Public Sub EditPerson(ID As Long, sVorname As String, sNachname As String, _
    sDBPfad As String)
 
    ' Datenbank öffnen
    Dim Datenbank As Database
    Set Datenbank = Workspaces(0).OpenDatabase(sDBPfad, False, False)
    '--
    ' Datensatz suchen
    Dim SQL As String
    Dim Tabelle As Recordset
    '--
    SQL = "SELECT * FROM Personen WHERE ID = '" & ID & "'"
    Set Tabelle = Datenbank.OpenRecordset(SQL)
    '--
    ' Datensatz editieren
    Tabelle.Edit
    Tabelle("Vorname") = sVorname
    Tabelle("Nachname") = sNachname
    Tabelle.Update
    '--
    ' Datensatzänderung in die Datenbank übernehmen
    '...........
    '...........
    '--
    ' Datenbank schließen
    Datenbank.Close
    Set Tabelle = Nothing
    Set Datenbank = Nothing
End Sub