"""msgbox no hay datos"""

[jose58]

buenos dias estoy realizando consultas atravz de una aplicacion que hice cuando consulto lo hace muy bine pero yo necesito lanzar un msgbox cuando los datos no esten en la base de datos el codigo que tengo es




Set con = CreateObject("ADODB.Connection")
con.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "F:\Proyecto roaming global\Base.mdb")

busca = Text9.Text
SQL = "SELECT * FROM AGREGAR WHERE SERIAL LIKE '" & busca & "'"
Set RS = con.Execute(SQL)
Do While Not RS.EOF
Text13.Text = Text13.Text & RS("SIMCARD")
Text14.Text = Text14.Text & RS("EQUIPO")
Text15.Text = Text15.Text & RS("MARCA")
Text16.Text = Text16.Text & RS("MODELO")
Text17.Text = Text17.Text & RS("BATERIA")
Text18.Text = Text18.Text & RS("CARGADOR")
Text19.Text = Text19.Text & RS("CLIENTE")
Text20.Text = Text20.Text & RS("CEDULA")
Text21.Text = Text21.Text & RS("NUMERODETELEFONO")
Text22.Text = Text22.Text & RS("ENTREGADOPOR")
Text23.Text = Text23.Text & RS("RECIBIDOPOR")
Text24.Text = Text24.Text & RS("FECHA")
Text8.Text = Text8.Text & RS("EQUIPOEN")
RS.MoveNext
Loop