Public Function fcSpaltenbreite()
    Dim DB As DAO.Database, rst As DAO.Recordset, ctl As DAO.Field
 
    Set DB = CurrentDb
    Set rst = DB.OpenRecordset("Tabelle1")
    For Each ctl In rst.Fields
        ctl.ColumnWidth = -2 ' Aber der Befehl geht ja nur auf Steuerelemente, 
        ' bzw. Formulare 
    Next ctl                     'soweit ich weiß...
    ctl = Nothing
End Function