hola, gracias por responderme, hoy por fin pude resolver mi problemita recordé
que un DataSet puede contener mas de un DataTable, asi que recorro el Bucle y en cada vuelta agrego el DataTable, asi:
For I = 0 To Numero
'las conexiones a mi bd
''''''''
Adaptador1.Fill (DataSet1, "Tabla" & I + 1)
Adaptador1 = Nothing
Next
y asi ia tengo un DataSet con todas mi tablas de acuerdo a las cantidad de vueltas que da mi bucle, nos vemos