¿Como llenar un dataset con todas las tablas de la BD?

[chcma]

Pues creas un DataAdapter por cada tabla, y despues llenas el DataSet con cada DataAdapter.

Dim DA1 as OleDbDataAdapter = new OleDbDataAdapter("sentencia", conexion)
Dim DA2 as OleDbDataAdapter = new OleDbDataAdapter("sentencia", conexion)

DA1.fill(DataSet, "Tabla1")
DA2.fill(DataSet, "Tabla2")

Espero haberme explicado. Saludos.