Hola,
Tengo un problema con la expresión ALTER TABLE, para renombrar una
columna y/o una Tabla en una Base de Datos Acces desde VB.

He buscado por todas las partes en internet y casi todos coinciden
en como hacerlo pero …. No funciona.

Para aclarar … he adjuntado el siguiente Ejemplo:

Option Explicit

Private Sub Command1_Click()
'PRIMERO HAY QUE AÑADIR UNA REFERENCIA AL PROYECTO
'Microsoft ActiveX Data Objects 2.7 library .... es la que tengo yo
'…. Tambien un boton …. Claro :)
Dim BaseDatos As String
Dim SQL As String
'BaseDatos = "X:\Carpeta_Donde_Esta\La_BaseDatos.mdb"
Dim cnn As New ADODB.Connection
With cnn
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & BaseDatos & ";"
.Open

'Esta funcciona bien
'SQL = "CREATE TABLE NombreTabla;"
'Esta tambien funcciona
'SQL = "ALTER TABLE NombreTabla ADD NombreColumna text(25);"

'--------------------------------------------------------------------
'AQUI ESTA LA PROBLEMA ... ESTAS DOS NO FUNCCIONAN
'Me sale el siguente error: "Error de sintaxis en la
'instrucción ALTER TABLE"

'SQL = "ALTER TABLE NombreTabla RENAME COLUMN NombreColumna TO _
NuevoNombreColumna;"

'SQL = "ALTER TABLE NombreTabla RENAME TO NuevoNombreTabla;"
'--------------------------------------------------------------------
.Execute SQL
.Close
End With
Set cnn = Nothing
End Sub


He dejado todo sobre el mismo botón "Command1" para no complicar
Hay que "jugar" con el "'" del comentario para probar una por una
las expresiones

GRACIAS