Private Sub txtKopf_ButtonClick(Index As Integer, bCancel As Boolean)
'WICHTIG: ungültiges Datum verursacht einen Datenbank-Fehler!!!
  With txtKopf(Index)
    Select Case Index
      Case 5: .Value = .ShowCalender(.Value)
        If .CheckDate Then
          oDb.Properties("Datum") = .Value
          bDBChanged = True
        End If
      Case Else: Exit Sub
    End Select
  End With
End Sub

MfG,
Dirk