Credo che se crei un datatable puoi essere il più dimamico possibile:

Dim cmd as New OledbCommand("SELECT * FROM NomeTabella", Cn)
Dim Da as New OledbDataAdapter(cmd)
Dim dt as New Datatable()
Da.Fill(dt)

Datagrid.Datasource=dt


Ogni volta che passi la select la griglia si aggiorna con la nuova tabella