Popolare una griglia con varie tabelle

'################################################################################################

Sub CaricaGriglia(ByVal DatGrid As DataGridView, ByVal Tabella As String)

Dim DataTabl As New DataTable

Dim cmd As New OleDbCommand("Select * from " & Tabella, Dbazienda)
Dim dr As OleDbDataReader = cmd.ExecuteReader
DataTabl.Clear()
DataTabl.Load(dr)
dr.Close()
DatGrid.DataSource = DataTabl
DatGrid.AutoResizeColumns()


End Sub




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

CaricaGriglia(DataGridView2, "condomini")

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

CaricaGriglia(DataGridView2, "Amministratori")

End Sub