پیدا نشدن رکورد

[afaghmoh]

من دارم برنامه ای می نویسم برای گرفتنه کلمه عبور و پسورد برای وارد شدن به صفحه اطلاعات دستور پیدا شدن رکورد را می نویسم می خواهم چک کنم اگر نبود کار دیگری کند اما نمیدانم چطور بفهمم که پیدا رکورد پیدا نشده باید بعد از نوشتن select و اتصال به بانک چه کنم.
Dim selectSql As String
selectSql = "Select * from pass where id = '& t1.Text' And pass = '& t2.Text'"
con = New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = c:\inetpub\wwwroot\savabegh\bank\pass.mdb")
cmdSelect = New OleDbCommand(selectSql, con)
con.Open()
dr = cmdSelect.ExecuteReader()
dr.Read()
l3.Text = dr("id")
l4.Text = dr("pass")
If l3.Text = String.Empty And l4.Text = String.Empty Then
l5.Visible = True
Else
l1.Text = "کد استاد"
l2.Visible = False
l6.Visible = False
t2.Visible = False
sabt.Visible = False
vorod.Visible = True

End If

con.Close()
dr.Close()
End Sub

[Behrouz_Rad]

بعد از dr = cmdSelect.ExecuteReader بنویس:


If dr.Read Then
رکورد پیدا شده
Else
رکورد پیدا نشده
End If

[afaghmoh]

خیلی خیلی ممنون آقای راد