Remplissage de textbox avec requête en VB.NET

Bonjour,

voila ma question est simple en vb.net je cherche à faire une requête et récupérer les donnés et les mettre dans des textbox, j'ai essayé de faire avec ce code mais sans succès :/ pourriez vous m'aidez ? Merci d'avance.

Dim reqs As String

reqs = "select * from ATELIER where NUMERO=2"

Dim cmds As New OleDbCommand(req, Init.maconnexion)

Dim rdrs As OleDbDataReader = cmds.ExecuteReader()

rdr.Read()

Me.NomModif.Text = rdr.Item("LIBELLE")
Me.SalleModif.Text = rdr.Item("SALLE")