مشکل با جستجو

[arsalansalar]

سلام
من از کدهای زیر برای جستجو استفاده می کنم . به درستی هم کار میکند اما مشکل من اینجاست که می خواهم وقتی رکوردستی پیدا نشد یک پیغام دهد ولی نمیدانم از چه کدی
و در کجای برنامه از آن باید استفاده کنم

Dim b As OleDbConnection
Dim cmdSelect As OleDbCommand
Dim dr As OleDbDataReader
Dim selectSql As String
Dim a As MsgBoxResult
Dim ff As String
ff = InputBox("لطفا نام مکان مورد نظر خود را وارد کنید")
t7.Text = ff
selectSql = "Select * From s Where makan = '" & ff & "'"
b = New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = C:\Documents and Settings\arsalan\Desktop\panel\sema.mdb")
cmdSelect = New OleDbCommand(selectSql, b)
b.Open()
dr = cmdSelect.ExecuteReader()
dr.Read()
t1.Text = dr("makan")
t2.Text = dr("tozih")
t3.Text = dr("shahr")
t4.Text = dr("msh")
t5.Text = dr("adress")
t6.Text = dr("tel")
dr.Close()
b.Close()

[arsalansalar]

کسی نیست به من کمک کند؟:عصبانی++:

[fereshte22]

if dr.read then
textbox.text=dr("makan")
.
.

else:چاپ پیام
end if

[lvenoos]

بعد ازdr = cmdSelect.ExecuteReader بنویس:
if dr.hasrows=false then
پیغام مورد نظر
dr.Close()
b.Close()
end if