penso si possa fare:

codice:
For i = 0 To dshotel.Tables("clienti").Rows.Count - 1
   For x = 0 to dshotel.Tables("clienti").Columns.count-1
        MiaColonna=dshotel.Tables("clienti").rows(i).item(x)
   next
Next