J'ai Besoin D'une Function Pour Les Objet BD

Bonjour,
Je Traville Sur ADO.NEt
ET Je Veux Affichier Les Objet D'une Basse de Donneé Dans une Grid View
affichier ces tableau ces colone et tout
j'ai trouver que cette commande qui afficher selemnt le size de la basse de donneé
**************
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cmd = New SqlCommand
cmd.Connection = con
cmd.CommandType = CommandType.Text
cmd.CommandText = "EXEC sp_databases"
'déclaration du Datareaderd
con.Open()

Dim dtr As SqlDataReader
dtr = cmd.ExecuteReader
'déclaration de la table des valeur
Dim tab As New DataTable
tab.Load(dtr)
DataGridView1.DataSource = tab
con.Close()

End Sub