Inserir campos não obrigatorios na tabela

Boa tarde, estou desenvolvendo o banco simples para cadastro de pessoas. Já consegui fazer a inclusão dos dados, mas quero deixar algumas informações como opcionais e não consigo. Coloquei abaixo o que ja fiz até agora. Mas não sei onde inserir os campos opcionais CONJUGE, FONE3, FILHOS E OBSERVACAO. O que vcs acham? Onde estou errando?

Option Compare Database
Dim strql As String
Dim banco As Database
Dim dataset As Recordset
Function conecta()
   Set banco = CurrentDb
End Function
Function valida()
   Set dataset = banco.OpenRecordset(strql, dbOpenDynaset)
End Function

Private Sub cmdinserir_Click()
   conecta
If IsNull(Me.Txtcpf) = True Then
  MsgBox ("Necessário Preencher os campos DADOS PESSOAIS & LOGRADOURO!"), vbInformation, "Erro"
Else
  strql = "select * from tabcadastro where CPF = '" & Txtcpf & "'"
  valida
If dataset.RecordCount >= 1 Then
  MsgBox ("CPF já Cadastrado!"), vbInformation, "Erro"
Else
If Txtnome <> "" And Txtnascimento <> "" And Txtcpf <> "" And Txteleitor <> "" And Txtrg <> "" And Txtendereco <> "" And Txtnumero <> "" And Txtbairro <> "" And Txtcidade <> "" And Txtcep <> "" And Txtfone1 <> "" Then
  strql = "insert into tabcadastro(NOME, NASCIMENTO, CPF, TITULO, RG, ENDERECO, NUMERO, BAIRRO, CIDADE, CEP, FONE1)VALUES ('" & Txtnome & "', '" & Txtnascimento & "', '" & Txtcpf & "', '" & Txteleitor & "', '" & Txtrg & "', '" & Txtendereco & "', '" & Txtnumero & "', '" & Txtbairro & "', '" & Txtcidade & "', '" & Txtcep & "', '" & Txtfone1 & "')"
  banco.Execute (strql)
  MsgBox ("Os Dados foram Cadastrados com Sucesso!"), vbInformation + vbOKOnly, "Cadastro"
Else
  MsgBox ("Necessário Preencher Campos DADOS PESSOAIS & LOGRADOURO!"), vbInformation + vbOKOnly, "Dados Necessarios"
End If
End If
End If
End Sub

Boa tarde tasmarx,


Este codigo verifica se os campos estão preenchidos.

Código:

If Txtnome <> "" And Txtnascimento <> "" And Txtcpf <> "" And Txteleitor <> "" And Txtrg <> "" And Txtendereco <> "" And Txtnumero <> "" And Txtbairro <> "" And Txtcidade <> "" And Txtcep <> "" And Txtfone1 <> "" Then

Caso queira deixar de algum ser obrigatório e só deletar o campo referente.

tasmarx, para incluir os campos que não estão no código acima, e só inserir-los conforme abaixo.

strql = "insert into tabcadastro(NOME, NASCIMENTO, CPF, TITULO, RG, ENDERECO, NUMERO, BAIRRO, CIDADE, CEP, FONE1,CONJUGE, FONE3, FILHOS,OBSERVACAO)VALUES ('" & Txtnome & "', '" & Txtnascimento & "', '" & Txtcpf & "', '" & Txteleitor & "', '" & Txtrg & "', '" & Txtendereco & "', '" & Txtnumero & "', '" & Txtbairro & "', '" & Txtcidade & "', '" & Txtcep & "', '" & Txtfone1 & "', "TxtCONJUGE", "TxtFONE3", "TxtFILHOS", "TxtOBSERVACAO")"

Obrigada bigfill,

Boa tarde tasmarx,

Obrigado pelo retorno, o fórum agradece.

Favor marcar o tópico como resolvido.