retranscrire un code vb en vb net

bonjour,
j'aurrai besoin d'aide pour retranscrire cela en vb net

Code:

---

1 2 3 4 5 6 7 8 9 10

rstdepart.MoveFirst() Do Until rstdepart.EOF note = Nz(rstdepart![notes], "") If note <> "" Then notes = notes & note & vbCrLf End If rstdepart.MoveNext() Loop rstdepart.Close() rstdepart = Nothing

---

sachant que j'ai commence avec cela
Dim cmds As OleDbCommand = cnn.CreateCommand

Code:

---

cmds.CommandText = String.Format("Select * from Table_BLOC_NOTES VALUES ('" & bloc_note & "'=""")

---

merci

Code:

---

1 2 3 4 5

dim r = cmds.executereader ' exécute la requete avec retour des données while r.read ' r.Read positionne le curseur sur la ligne suivant (ou la 1ère) note = r.item("notes").ToString ' r.item permet d'accéder à la valeur d'une colonne (c'est as object, pour un string on fait .ToString) if note <> "" then notes &= note & vbcrlf end while ' ca sort quand r.Read retourne false = pas de ligne ou pas de ligne suivante

---