Criar campo e definir valor padrão via VBA/SQL

strAltera2 = "ALTER TABLE tbl_ROMANEIOS_DETALHES ADD COLUMN FLUXO_CX_OK text;"

strBancoExterno.DoCmd.RunSQL strAltera2

Estou usando esta sequência para criar o campo chamado "FLUXO_CX_OK" na tabela "tbl_TOMANEIOS" em meu banco de dados e está funcionando perfeitamente, porém preciso definir o valor padrão do campo para "N". Como eu faço?

Tentei desta forma:
strAltera2 = "ALTER TABLE tbl_ROMANEIOS_DETALHES ADD COLUMN FLUXO_CX_OK text default 'N';"

Mas não funcionou.

Mestre Avelino,

Fui naquele link que me enviou e tentei adaptar ao código que estou usando, que por sinal veio daqui também, rsrs. Porém o código do link faz menção a um database que já está aberto. No meu caso não, eu criei um db apenas para fazer isso (criar campo em tabela e alterar propriedades nos campos). A tabela onde será feita a alteração está em outro caminho no HD.



Public Sub fncCriarTabela()
Dim strSql$
Dim bd As dao.Database

Set bd = CurrentDb

strSql = "CREATE TABLE tblProdutos (" _
"idProduto AUTOINCREMENT," & _
"NomeProduto CHAR(50)," & _
"DataLançamento DATE," & _
"QuantidadeEstoque INTEGER," & _
"ValorUnitário CURRENCY," & _
"Observação MEMO," & _
"Descontinuado YESNO)"
'-------------------------------------
'Executa a consulta, criando a tabela
'-------------------------------------
bd.Execute strSql
'---------------------------------------------------
'Acrescentando Valor Padrão ao campo DataLançamento
'---------------------------------------------------
bd.TableDefs("tblProdutos").Fields("DataLançamento").DefaultValue = "=date()"
End Sub