[Resolvido]Campo com Valor Padao SQL

Prezados, bom dia!!

Estou tentando implementar um código para criar uma tabela, e ao mesmo tempo o campo "STATUS" com valor padrão igual a "DIVERGENCIA", estou usando o código abaixo, mas está dando um erro de sintaxe na construção CREATE TABLE, alguém poderia me ajudar.

Código:

Public Function CRIA_TABELA()
Dim strSql$
    
    strSql = "CREATE TABLE TAB_CRITICA (" & _
             "ID_CRITICA VARCHAR," & _
             "STATUS VARCHAR(20) DEFAULT 'DIVERGENCIA', " & _
             "GDE_LOCALIDADE VARCHAR," & _
             "GRUPO INTEGER," & _
             "DIGITADOR_PESQUISADOR VARCHAR," & _
             "DT_ENTREVISTA DATE," & _
             "DT_DIGITACAO DATE," & _
             "N_FAM_SIS INTEGER ," & _
             "NOME_CRITICO VARCHAR)"
    CurrentDb.Execute strSql
      
End Function


Desde já grato.

Sidney

Para instruções mais parametrizadas, utilize ADO

Troque

Código:

CurrentDb.Execute

Por

Código:

CurrentProject.Connection.Execute

Perfeito Damasceno, obrigado!!

att, Sidney