Dim rs, i
Set rs = CreateObject("ADOCE.Recordset.3.1")
rs.Open "CREATE TABLE changeme (f1 varchar)"
rs.Open "ALTER TABLE changeme TO changed"
rs.Open "ALTER TABLE changed RENAME f1 TO firstfield"
rs.Open "ALTER TABLE changed ADD secondfield varchar"
rs.Open "ALTER TABLE changed ADD lastfield varchar"
rs.Open "ALTER TABLE changed MOVE lastfield BEFORE firstfield"
rs.Open "changed"
For i =  0  To rs.fields.Count -  1 
  MsgBox rs.fields(i).Name
Next
rs.Close
rs.Open "DROP TABLE changed"
Set rs = Nothing

Public Sub MyProc()
    Set Conn = New ADODB.Connection
    Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\main2002.mdb;Persist Security Info=True"
    Conn.Mode = adModeReadWrite
    Conn.Open
    Conn.Execute "select * from sysobjects"
End Sub

Public Function RenameColumn(ByVal strDB As String, strTable As String, _
                    strOldColumn As String, strOldColumn As String) As Boolean

On Error GoTo Hell

'Create a Catalog object
Dim oCat As ADOX.Catalog
Set oCat = New ADOX.Catalog
oCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & strDB

'Create a table object
Dim oTbl As ADOX.Table
Set oTbl = New ADOX.Table

Set oTbl = oCat.Tables(strOldTable)
oTab.Columns(strOldColumn).Name = strOldColumn

'Return Success
RenameColumn = True

Exit_For:
    'Clean up
    Set oCat = Nothing
    Set oTbl = Nothing
    Exit Function

Hell:
    GoTo Exit_For

End Function