مساعدة في تعديل هذا الكود

السلام عليكم

أريد مساعدتكم في تعديل هذا الكود ... المطلوب التالي

عند البحث يعطيني نتيجة واحدة أنا أريد أكثر من نتيجة تظهر لي ( يعني إذا أردت أن أبحث عن رقم هاتف موجود في قاعدة البيانات مثلاً كتبت في textbox اسم أحمد وأريد أن يظهروا جميع أرقام هواتف الذين يحملون اسم أحمد في آن واحد .... وهكذا

الكود هو ....

Try
conn.Open()
Dim cmd As New OleDbCommand
cmd.Connection = conn
cmd.CommandType = CommandType.Text
cmd.CommandText = "select phone from [ste] where name like '%" & txt1.Text & "%'"
Dim dr As OleDbDataReader = cmd.ExecuteReader
While (dr.Read)
Label1.Text = dr.Item("phone").ToString
End While
dr.Close()
Catch ex As Exception
Label1.Text = "حدث خطأ"
Finally
If conn.State = ConnectionState.Open Then
conn.Close()
End If
End Try