consulta banco de dados access

ae galera,beleza...to com um probleminha....eu to fazendo uma busca num banco de dados access,e os resultados são mostrados em um datagridview...ate ai beleza tudo certo....só que quando eu faço a busca por um numero que não existe,ele naum aparece nada no datagrid..oq ta certo pq eu coloco pra fazer busca um numero que naum existe...só que quando tentar procurar um numero que naum existe eu preciso que ele me mostre um messagebox com texto que eu escolher......alguem pode ajudar aew....como colocar o msgbox pra resultados que naum existem????segue abaixo o codigo da consulta....

Busca = frmREE.txtCNPJ.Text

 st = "SELECT Cad_Cli.Cliente, Cad_Cli.Descricao, Cad_Cli.Rua, Cad_Cli.Zona, Cad_Cli.Cidade, Cad_Cli.Estado, Cad_Cli.Email, Cad_Cli.Telefone, Cad_Cli.CNPJ, Cad_Cli.ExeConta "

 st = st & "FROM Cad_Cli WHERE (((Cad_Cli.CNPJ)='" & Busca & "'));"

 Dim cmdDef As New OleDb.OleDbCommand(st, Con)

 Dim drDef As OleDb.OleDbDataReader

 drDef = cmdDef.ExecuteReader()

 If drDef.Read() Then

 Mailpara = drDef.Item(6).ToString

 'Objetivo = "Reclamação:Informativo de Devolução"