[Resolvido]Importar de arquivo excel

Boa noite.
Faço importações de arquivos xls para o meu sistema, conforme código infracitado.
É possível, quando o campo do excel for vazio, preencher o campo com hífen ("-") no access?

Tentei inserir valor padrão na tabela e no campo no formulário, não funciona. Terei que resolver isto na importação.

Dim strRet As String

Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
'apaga todos os registros da tabela

If txtsenha = "1234" Then
blnHasFieldNames = True
strPath = "C:\" ' drive onde se situa o seu documento excel
strTable = "Programação" 'nome da tabela no seu banco
strFile = Dir(strPath & "Import.xls") 'nome do seu excel, se mudar para "*.xls" importa todas as folhas excel _
que estiverem em C:\ para a tabela do banco.
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop
Me.OrderBy = "Data"
Me.OrderByOn = True
Me.Refresh
Me.Requery
Me.Recalc
MsgBox ("Importação concluída com sucesso!"), vbInformation, "Importação de dados"
DoCmd.Close acForm, "frmsenhaimportação"
Forms("frmProgramação").Recalc
Forms("frmProgramação").Requery
Forms("frmProgramação").Refresh

Else
MsgBox ("Senha incorreta!"), vbCritical, "Digite a senha correta"
End If

End Sub

Este seria um exemplo de arquivo, onde no 1º item não tem pedido, precisaria inserir um hífen neste campo.
Data Pedido Descrição
01/09/2020 CADEIRA
02/09/2020 58769 BANQUETA
03/09/2020 58769 POLTRONA

um jeito simples de resolver isto seria executar uma consulta atualização depois da importação
crie a consulta em critério = null e na linha atualizar para "-"

scandinavo, parece uma boa. Como ativo a execução automática desta consulta atualização?

1 voce sabe como criar a consulta.
2 no fim do.codigo de importação
docmd.openquery "sua consulta"

Erro em tempo de execução '3073'.
A operação deve usar uma consulta atualizável.

scandinavo, deu certo agora. Obrigado e sucesso!

Grato pelo retorno. Are mais