Visual Basic - Hacer consulta SQL en todas las tablas de la BD

Como hago para hacer una consulta SQL en todas las tablas de la bd, donde los campos son los mismos en todas, además tiene que ser general porque año a año se van agregando nuevas que se importan de
otra base de datos , osea es una bd por año de la facutración de cada año y que cada tabla tiene el nombre del año que corresponde. Espero que el que lea esto lo entienda. Bueno, muchas gracias

Mirá realmente no entiendo tu pregunta pero con un simple
Select * from NombreTabla podés cargar la tabla de la BD que desees
Creo que tu problema es que conectas una base con un data. Bueno cargalo en un recordset y después asocialo de la siguiente forma
Set Data.Datasource = Recordset

Afogutu.

Prueba mediante Adodb, con esto no tienes que saber el numero de tablas de la base de datos:
si la conexion se llama cnn haremos lo siguiente:

Set rst = cnn.OpenSchema(adSchemaTables)

While Not rst.EOF
If Left(UCase(rst!table_name), 4) <> UCase("msys") Then 'no abrimos las tablas de sistemas
Set rst2 = cnn.Execute("select * from " & rst!table_name)
End If
rst.MoveNext
Wend
End Sub
Espero que sea lo que quieres
Saludos
Fran