Credo di avere risolto in questo modo:

codice:
Dim miaRiga As DataRow = ds.Tables("miaTab").Rows.Find(ID)
dim mioValore as string="nessun valore"
If Not (miaRiga Is Nothing) Then
      mioValore=rigaPro("mioCampo").ToString
End If