Formulário Desvinculado

Tenho um formulário desvinculado, tem um campo Data Entrega tem que ficar em branco, quando edito os registros dá erro.
Uso estes Códigos:

Private Sub Editar_Click()
Dim i As String

Dim db As Database, edtReg As Recordset
Dim strSQL As String

   Set db = CurrentDb()
     
       strSQL = "SELECT * FROM tabItbi WHERE Protocolo = " & Me.Texto02 & ""
        Set edtReg = db.OpenRecordset(strSQL)
       
       i = MsgBox("Tem a certeza que deseja Editar este registro ?", vbYesNo, "Confirmação")
       If i = vbYes Then
       
       Me.Texto02.SetFocus
       
       edtReg.Edit
       Me.Texto02.SetFocus
       edtReg![Protocolo] = Texto02.Value
       edtReg![ProtocoloAno] = Texto04.Value
       edtReg![NomeProprietario] = Texto08.Value
       edtReg![Especificacao] = Texto10.Value
       edtReg![DataRecebido] = Texto06.Value
       edtReg![Cadastrador] = sisUsu
       edtReg![Funcionario] = Texto12.Value
       edtReg![DataEntrega] = Texto14.Value
       edtReg.Update
       
       MsgBox "Registro Editado com sucesso...", vbInformation
       edtReg.Close
       db.Close
       Else
       Call Limpar
       Me.Texto02.SetFocus
       Me.Editar.Enabled = False
       Me.Salvar.Enabled = True
       Me.Excluir.Enabled = False
   Exit Sub
   End If

   Set edtReg = Nothing
'limpa as caixas de texto
       Call Limpar
       Me.Texto02.SetFocus
       Me.Editar.Enabled = False
       Me.Salvar.Enabled = True
       Me.Excluir.Enabled = False

End Sub

Grande mestre veja como estava na tabela e como eu fiz agora. Pode ser assim.

A propriedade na tabela – No campo DataEntrega estava: – Tipo de Dados: Data/Hora – máscara de entrada: 00/00/0000;0;_. No lugar de Data/Hora, mudei para texto, não deu mais erro.

Aluizo.