datagrid con hasht table

quisiera saber si alguien me puede decir komo se puede llenar un data grid a
partir de una hashtable

o como llenar un data ris a partir de este codigo(obtiene los valores de una
tabla de una base de datos).:

Dim conexion As New SqlConnection("user id=sa;password= ;initial
_ catalog=Administracion;data source=(local)")
Dim comando As New SqlCommand("select * from AdmMenus", conexion)
Dim lector As SqlDataReader
Dim tabla As DataTable
Dim ht As Hashtable

conexion.Open()
lector = comando.ExecuteReader
tabla = lector.GetSchemaTable
datagrid1.DataSource = tabla

Dim clave As String
Dim desc As String
Do While lector.Read
clave = Trim(lector.Item("MenuId"))
desc = Trim(lector.Item("Descripcion"))
Loop
lector.Close()
conexion.Close()

gracias