Como Criar Campos Em Tabela Acess Já Existente

[Dog Bean]

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

[kuroi]

então cara, quando um codigo estiver errado, posta sempre a descricao e a linha do erro, senao niguem faz ideia do que está acontecendo beleza??

(ou no caso de não estar dando erro também avise e explique o que quer dizer com "não funciona").

mas pra adicionar campos em tabelas já existente custumo usar o comando ALTER TABLE numa query sql. faca uma busca no forum (nas secoes SQL e Access também pode ter alguma coisa) pra ver a sintaxe.