Visual Basic.NET - Buscar un Regsitro

Hola amigos,

Resulta que tengo el siguiente codigo

Dim Sql As String = "select * from cuentas where cod_cuenta LIKE '" & TextBox1.Text & "'"
Dim cm As OleDbCommand = New OleDbCommand(Sql, DB)
Dim rs As OleDbDataReader = cm.ExecuteReader
While rs.Read

TextBox2.Text = rs("nom_cuenta")

e.Handled = True
TextBox2.SelectAll()
TextBox2.Focus()
End While

lo que quiero es que si no encuentra el codigo que pongo en el textbox1 me diga que el codigo no existe, lo he probado con un try catch, pero no me resulta, no se que propiedad usar para condicionar el rs

ojala me entiendan, en VB 6 yo uasaba un IF RS.EOF =true THEN .... con el NOMATCH, pero en VB.NET no cacho, oajal me peudan ayudar

gracias

Command.Connection = Con
Command.CommandText = "SELECT Empleados.* FROM(Empleados) where idEmpleado = @IdEmpleado"

Dim prm As New OleDb.OleDbParameter("@IdEmpleado", textbox1.tex)
Command.Parameters.Add(prm)

Using reader As OleDb.OleDbDataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)

If reader.HasRows Then
While reader.Read
MsgBox(reader.Item("Nombre").ToString)
End While
Else
MessageBox.Show("No se encontro niunguna coincidencia", "Busqueda", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

End Using