מצאתי שיטה-לרווחת הציבור:
Dim thisAdapter = New OdbcDataAdapter(CStr(Q.Text), Connection)
Dim sDr As DataTableReader
Dim Ds = New DataSet
thisAdapter.Fill(Ds)
For z = 0 To Ds.Tables.Count - 1
sDr = Ds.Tables(z).CreateDataReader()
Do While sDr.Read()
'כאן עושים מה שרוצים עם כל טבלא בנפרד
Loop
sDr.Close()
Next
