ربط Gridview مع Datareader

هذا الكود لا يعطي نتجية الإستعلام الا اذا ازلت IF Condition لماذا ؟

وطلب ثاني يالنشماى .. كيف اتحقق من عدم وجود نتائج .. ومن ثم أربط DataReader بالــGridView

 Dim myCommand As OracleCommand = New OracleCommand("SELECT  patient_id  From patient_master_data where patient_id='" & txtPatientID.Text & "'", conn)

		'  Try

		conn.Open()

		Dim dr As OracleDataReader = myCommand.ExecuteReader()

		If (dr.Read()) Then
			GridView1.DataSource = dr
			GridView1.DataBind()
		Else
			MsgBox("لا توجد سجلات")
		End If

		dr.Close()
		conn.Close()