Eliminar e Não Eliminar

pessoal desculpem la a pergunta mas como se faz para q se tiver registros na bd entao ele elimine todos os registo conforme ta o codigo abaixo, mas se n haver registros na bd, entao va aparecer uma mensagem de erro a dizer q n pode limpar o historico, ja q n ah registos.

brigado http://forum.imasters.com.br/public/style_emoticons/default/bye1.gif

Dim registros As New Recordsetregistros.Open "DELETE FROM Estados", cn, adOpenDynamic, adLockOptimisticList1.ClearMsgBox "Historico Eliminado !!!", vbInformation