' Datenbank öffnen
Dim oConn As ADODB.Connection
Dim oCat As ADOX.Catalog
Dim sConn As String
 
Set oConn = New ADODB.Connection
sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\testmdb.mdb;"
oConn.Open sConn
 
' Tabellen/Feld-Eigenschaften ändern
Set oCat = New ADOX.Catalog
With oCat
  .ActiveConnection = oConn
  With .Tables("Tabellenname").Columns("Feldname")
    .Name = "neuer Name"
  End With
End With
...

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de