[Resolvido]Adicionar campo na tabela via código VB

Com o código abaixo;

Sub AlteraTabelaProdutos()

Dim dbs As Database
Set dbs = OpenDatabase("BancoDeDados.mdb")

dbs.Execute "ALTER TABLE Produtos" _
& "ADD COLUMN Complemento1 char(50);"

dbs.Close

End Sub

Eu consigo adicionar o campo Complemento1 tipo texto com tamanho de 50 caracteres na tabela produtos via código VB. Mas tem um problema, não consigo passar o comando para alterar o atributo “Compactação Unicode=SIM”. O campo e criado como padrão o valor “Compactação Unicode =NÃO”. Se este campo recebe um texto com 15 caracteres o Access completa os outros 35 caracteres restantes com espaços, e isso tem me causado uma tremenda dor de cabeça. Alguém sabe como mudar esse atributo para “Compactação Unicode=SIM”?

Boa tarde, Regivan, e bem-vindo ao fórum
Utilize
Sub AlteraTabelaProdutos()
Currentdb.Execute "ALTER TABLE Produtos ADD COLUMN Complemento1 char(50) WITH Compression;"
End Sub

Caro amigo, obrigado por responder minha mensagem.
Alterei o código conforme você sugeriu mas deu o seguinte erro

Erro em tempo de execução 3293:
Erro de sintaxe na instrução ALTER TABLE.

Boa tarde, Regivan
E
Sub AlteraTabelaProdutos()
Currentdb.Execute "ALTER TABLE Produtos ADD COLUMN Complemento1 char(50);"
End Sub

Dá erro?

Desta forma não da erro.

O código que pretende, parece que só se aplica em SQL server, mas aguarde para ver se algum colega o pode ajudar

Realmente no SQL funciona perfeitamente, mas no accessnão funciona. deve ser uma falha da microsoft. mas tudo bem vou continuar buscando resposta para este problema.

Então, daremos o assunto por resolvido.
Se houver novidades, volte ao tema