Interromper o código

Como impedir de prosseguir o código

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
If DCount("*", "cns_categoria") = 0 Then
MsgBox "Não há dados para Categoria especificada", vbOKOnly + vbCritical, "Sem dados"

Cancelar aqui o evento se não houver dados

End If
If Me!TotalLucro > maior Then maior = Me!TotalLucro

End Sub

Tente assim e veja se Para:

......
if....

MsgBox "Não há dados para Categoria especificada", vbOKOnly + vbCritical, "Sem dados"
'Apos a mensagem ele deve sair...
Exit Sub
.....