Sub Paco()
On Error GoTo Err_Comando10_Click
  Dim Rst As DAO.Recordset
  Dim Sfecha As Date
  Sfecha = CDate(Format(InputBox("Fecha, por favor, en formato dd/mm/yyyy", "Introduzca fecha", Date), "dd/mm/yyyy"))
  Set Rst = CurrentDb.OpenRecordset("Select * from clientes")
  With Rst
   .AddNew
   !Fecha = Sfecha
   .Update
  End With
   

Exit_Comando10_Click:
    Exit Sub

Err_Comando10_Click:
  
    Select Case Err.Number
     Case 13, 6 'etc controla aqui los posibles errores de cadena de fechas
      MsgBox "Fecha incorrecta: Recuerde, formato dd/mm/aaaa", vbCritical, "AVISO"
      Resume Exit_Comando10_Click
     Case Else
     
     MsgBox Err.Description
     Resume Exit_Comando10_Click
   End Select

End Sub