Option Compare Database
Option Explicit

Function ModificaTablaLinkada(NombreTabla As String)

Dim MiConexion As ADODB.Connection
Dim RutaTablaVinculada As String
Dim CadenaSql As String

    Set MiConexion = New ADODB.Connection

    RutaTablaVinculada = CurrentDb.TableDefs(NombreTabla).Connect
    RutaTablaVinculada = Right(RutaTablaVinculada, Len(RutaTablaVinculada) - InStr(RutaTablaVinculada, "="))

    MiConexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                  "Data Source=" & RutaTablaVinculada & ";"

    CadenaSql = "ALTER TABLE " & NombreTabla & " ALTER COLUMN NombreCampo CHAR(255); "
    

    MiConexion.Execute CadenaSql

    MiConexion.Close
    Set MiConexion = Nothing

End Function

'Aqui hemos modificado de la tabla que tu pases como parametro
'el campo NombreCampo convirtiendole en tipo String de 255 caracteres
'Incluso lo podrias sofisticar mas, pasando a la funcion mas parametros
'tales como:
'El nombre del campo que quieres modificar
'Al tipo que quieres convertir: Char etc
'La longitud o algun otro parametro mas.
'Esto es un mero ejemplo