Hola Beatriz:
Aquí tienes un ejemplo:
Código:
Function vb()
On Error GoTo vb_Err
DoCmd.Rename "Nuevo_Nombre", acTable, "Antiguo_Nobre"
vb_Exit:
Exit Function
vb_Err:
MsgBox Error$
Resume vb_Exit
End Function
Como es tu primer mensaje y comprendo que no has tenido tiempo de leerte las normas del Foro:
Escribir todo en mayúsculas = GRITAR.
El resto puedes leerlo en la Guía de Estilo de los Foros.
http://www.clubdelphi.com/users/llso...GuiaEstilo.php
Un Saludo.