Option Explicit
 
' Alle öffentlichen Variablen
Public oConn As ADODB.Connection
Public DB_Path As String
Public DB_Name As String
Public DB_PW As String
Public RetVal As String
Public DB_Open As Boolean
 
' Bestehende Datenbank öffnen
Public Sub DB_Oeffnen()
  Dim sConn As String
 
  Set oConn = New ADODB.Connection
  With oConn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Data Source") = DB_Name
    .Properties("Persist Security Info") = False
    ' Falls die Datenbank durch ein Passwort geschützt ist...
    .Properties("Jet OLEDB: Database Password") = DB_PW
  End With
  ' Falls die Datenbank durch ein Passwort geschützt ist...
  sConn = sConn & "Jet OLEDB: Database Password=" & DB_PW & ";"
 
  oConn.Open sConn
  DB_Open = True
End Sub
 
' Neues Field in Haupttabelle einfügen
Public Sub TabellenField_zufügen(sTable As String, _
    sFieldName As String, sSize As Integer)
 
  If DB_Open Then
    If Not dbFieldExists(sTable, sFieldName, oConn) Then
      oConn.Close
      FieldErzeugen sTable, sFieldName, sSize
    Else
      Exit Sub
    End If
  Else
    DB_Oeffnen
    If Not dbFieldExists(sTable, sFieldName, oConn) Then
      oConn.Close
      FieldErzeugen sTable, sFieldName, sSize
    End If
  End If
End Sub
 
' Tabellenfeld nachträglich hinzufügen
Private Sub FieldErzeugen(sTable As String, sField As String, _
    sSize As Integer)
  Dim Db As Database
  Dim Feld As New DAO.Field
 
  ' Datenbank exklusiv öffnen
  Set Db = DBEngine.OpenDatabase(DB_Name, True, False, _
     ";pwd=" & DB_PW)
 
   ' DatenField in Haupttabelle einfügen  
With Db.TableDefs(sTable).Fields
    ' Feld "Ausgeliehen und Bestellt" definieren
    Feld.Name = sField
    Feld.Type = dbText
    Feld.Size = sSize
    Feld.AllowZeroLength = True
 
   '  Jetzt sollte der Indiez (Mit Duplicate) gesetzt werden
   ' und dafür habe ich keine Vorstellung wie das geht !!!!!!
 
   ' Feld hinzufügen
    .Append Feld
    Set Feld = Nothing
  End With
 
  ' Datenbank schliessen und zerstören
  Db.Close
  Set Db = Nothing
 
  ' Datenbank zur Bearbeitung wieder öffnen
  DB_Oeffnen
End Sub