non vorrei dire cavolate ma l'istruzione
Dim ds as new DataSet()
secondo me dovrebbe essere così
Dim ds as new DataSet("nomeTabella")


e di conseguenza

stringa_campo = ds.Tables("nomeTabella").Rows(0).Item(Nome_Campo)

E il "nomeTabella" specificato non dovrebbe essere necessariamente lo stesso della tabella del db.