Private Sub UdpStandard(DBName As String, TableName As String, ColumnName As _
  String, _
                    NeuerWert As Double, _
                Optional DBPwd As String = "", Optional ColSize As Integer = _
                255, _
                Optional AutoIncrement As Boolean = False, Optional Default As _
                Variant = Empty, _
                Optional AllowZeroLength As Boolean = False)
 
 
Dim CatADO As New ADOX.Catalog
Dim ColADO As New ADOX.Column
Dim strCnn As String
 
On Error GoTo ErrCField
 
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBName
'  Connection zuweisen
CatADO.ActiveConnection = strCnn
 
    Debug.Print CatADO.Tables(TableName).Columns(0).Properties.Item(1).Value
    CatADO.Tables(TableName).Columns(0).Properties.Item(1).Value = NeuerWert
    Debug.Print CatADO.Tables(TableName).Columns(0).Properties.Item(1).Value
 
'  Neue Spalte an Tabelle übergeben
CatADO.Tables(TableName).Columns.Refresh
 
ExitCField:
Set CatADO = Nothing
 
On Error GoTo 0
 
 
 
Exit Sub
 
ErrCField:
MsgBox Err.Number & vbCrLf & Err.Description & vbCrLf & Err.Source & _
  Err.LastDllError
 
End Sub