'  --- Zusammenstellen der Verbindungsinformationen
Dim strProvider
    strProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
 
' --- Die Datenbank liegt im Verzeichnis database unterhalb des aktuellen 
' Ordners
Dim strDatabase
    strDatabase = "DATA SOURCE=" & Server.MapPath("./database/dbTest.mdb") & ";"
 
Dim strComplete
    strComplete = strProvider & strDatabase
 
' --- Erstellen und öffnen der Datenbankverbindung
Dim objConn
Set objConn = Server.CreateObject( "ADODB.Connection" )
    objConn.Open strComplete
 
' --- Erstellen des Katalog-Objekts und zuweisen der Datenbankverbindung
Dim objCatalog
Set objCatalog = Server.CreateObject( "ADOX.Catalog" )
    objCatalog.ActiveConnection = objConn
 
    ' --- Spalte "t_name" wird in "t_name_neu" umbenannt
    objCatalog.Tables("tblTest").Columns("t_name").Name = "t_name_neu"
    objCatalog.Tables.Refresh
 
    Response.Write "Spalte wurde umbenannt"
 
    objConn.Close
 
' --- Schließen und terminieren der Datenbankobjekte
Set objCatalog = Nothing
Set objConn = Nothing