Não permitir cadastro duplicado consultando dois campos

Boa tarde pessoal

tenho uma tabela que preciso consultar dois campos e caso as informações sejam iguais não permitir cadastrar e retornar uma mensagem
dizendo "Já existe uma consulta marcado para esse dia e horario".
Como proceder.

Os campos sao

Consulta
Data

Nome da tabela "tbConsulta".

Se puderem ajudar fico grato...

Bom dia...

É só adaptar as tuas necessidades, alterando os devidos campos.

Private Sub HoraConsulta_AfterUpdate()
On Error Resume Next
Dim x As Variant
Dim y As Variant
y = DFirst("paciente", "QryVisitas", "DataConsulta = Forms!FrmPaciente!DataConsulta and HoraConsulta= Forms!FrmPaciente!HoraConsulta")
x = DLookup("DataConsulta &' ' & HoraConsulta", "QryVisitas", "DataConsulta = Forms!FrmPaciente!DataConsulta and HoraConsulta= Forms!FrmPaciente!HoraConsulta")
If x > 0 Then
MsgBox ("Já existe horário agendado para esse dia e hora !" & vbCrLf & _
"Agendado para data e hora: " & x & vbCrLf & _
"Paciente agendado: " & y), vbCritical, "Atenção !!!"

Me.DataVisita.SetFocus

End If
End Sub


Bons estudos.