كيفية وضع رساله لهذا البحث

السلام عليكم ورحمة الله وبركاته

الاخوه الاعزاء هذا الكود يبحث عن اسم فى حقل اذا وجد الاسم يظهره فى التكستات وان لم يجده لم يظهر شيئا اريد اضافة شىء بسيط وهوه يظهر رساله اذا لم يجد ما يبحث عنه

الكود كالتالى

On Error Resume Next

	Dim RS As New ADODB.Recordset
	Sql = "SELECT * FROM info WHERE StNo =" & stno1.Text & " "
	Set RS = Cn.Execute(Sql)
10
	On Error Resume Next
	Text1.Text = RS.Fields("stno")
	Text2.Text = RS.Fields("name")
	Text3.Text = RS.Fields("tel_ser")
	Text4.Text = RS.Fields("mobil")
	Text5.Text = RS.Fields("address")
	Text6.Text = RS.Fields("email")
	Date1.Text = RS.Fields("Date1")
	Text9.Text = RS.Fields("notes")
	baky.Text = RS.Fields("baky")
	RS1.Close
	Set RS1 = Nothing

جزاكم الله خيرا