Criar tabela Sim/Nao

Pessoal
Boa NOite

Estou com uma duvida que é a seguinte

como posso adicionar uma coluna em uma tabela chamada [BANCO VPS]? porem o campo deve ser Sim/Nao ( caixa de seleção)

preciso add via codigo.

Obrigado

Bom dia Adriano;


Function AdicionaColuna()
'By JPaulo Maximo Access
Dim strTabela As String
strTabela = "BANCO VPS"
DoCmd.RunSQL "ALTER Table [" & strTabela & "] ADD COLUMN NovoCampo BIT"
End Function

Jpaulo

Estou fazendo da seguitne maneira:

DoCmd.RunSQL "ALTER Table [" & strTabela & "] ADD COLUMN " & opciveco & " BIT"

pois o nome do novo campo é de acordo com uma variavel, porem quando executo o sistema esta criando uma campo de texto.

Fiz o teste e funfou perfeito.

Campo de texto nunca poderá criar, uma vez que lhe estou a dar a instrução de BIT, que corresponde ao campo checkbox Sim/Nao.

Function AdicionaColuna()
'By JPaulo Maximo Access
Dim strTabela As String
Dim opciveco As Variant
opciveco = "NovoCampo"
strTabela = "BANCO VPS"
DoCmd.RunSQL "ALTER Table [" & strTabela & "] ADD COLUMN " & opciveco & " BIT"
End Function