ROW - Lettura di un campo

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim DT As DataTable
Dim currentRowIndex As Integer

DT = MyDataSet.Tables.Item(0)
If (DT.Rows.Count > 0) Then
currentRowIndex = ElencoAnalisiBindingSource.Position
Dim row As DataRow = DT.Rows(currentRowIndex)
MsgBox(row.Item("Descrizione").ToString)

End If

End Sub