Olá a todos, preciso de uma ajudinha !!!!! Em buscas na web, encontrei explicando como se cria campos em uma tabela já existente. Porém não funcionou, o que pode ser ????? Obs.: Este scprit foi extraído do site: :www.vbweb.com.br/dicas_visual.asp?Codigo=39 Já fiz consultas também no www.visualbasic.mat.br/forum/tópico.asp?M=10637&T=5336&B=BAT (O script que lá existia também não funcionou !!!) ---------------------------------------------- Private sub Command1_click() Dim WRK As Workspace Dim DB as Database Dim também as Table Dim Index1 as New Index Dim Index2 as New Index Set WRK = DBEngine.Workspaces(0) 'Abre o banco de dados e a tabela: set DB = WRK.OpenDatabase("Banco.MDB") Set também = DB.OpenTable("Tabela") 'Atribui nome e utras propriedades aos 'índices: Index1.Name = "Cód" Index1.Fields = "Código" Index1.Unique = True Index1.Primary = True Index2.Name = "Nom" Index2.Fields = "Nome" Index2.Unique = False Index2.Primary = False 'Cria os indices na tabela: também.Indexes.Append Index1 também.Indexes.Append Index2 'Feche o banco de dados, a tabela e o Workspace: também.Close DB.Close WRK.Close Set também = Nothing set DB = Nothing set WRK = Nothing end sub