Formulário de Navegação

Boa Noite, tenho um BD com uma Agenda que adaptei do Amigo José Machado
Ela funciona perfeitamente, porém quando coloco ela para abrir através de um formulário
de navegação, da erro, eu já tentei tudo o que eu sabia.
Segue anexo BD, se alguém puder me ajudar agradeço...

Bom dia...

No evento Load ative apenas
Private Sub Form_Load()
   ' aqui eu ativei
  ' profissional_codigo = Form_Frm_Sub_Profissional.txt_profissional_codigo
  ' profissional_codigo = CboProfis.Value
  ' Preencher_profissional_nome
   Requery_Calendario DatePart("m", Date), DatePart("yyyy", Date)
  ' Me.Caption = "Agenda de : " & txt_profissional_nome
  ' Preencher_agenda
  ' Vaga
  ' Me.txt_cliente_nome.SetFocus
  ' Preencher_lst_cliente
  ' Preencher_cmb_servico
  profissional_codigo = 1
End Sub

Bom dia José Machado,
Aqui não funcionou, fiz como vc me falou
O que acontece é que depois de registrado um horário na agenda, ela não atualiza, ou seja não mostra
o cliente que foi agendado, mas quando abro novamente aparece o agendamento.
Notei que ao abrir novamente a agenda, o erro some.
Aquele erro dá quando clica em algum dia do controle calendário, quando muda de mês não dá erro.

Mas quando a agenda é aberta fora do formulário de navegação não dá erro algum.

Anexo modelo funcionando

Aqui quando abro pelo formulário de navegação continua dando erro