Visual Basic.NET - Formato datagrid

Hola Amigos yo se que esta pregunta la han hecho mil veces pero no hay caso que me peuda resultar, ojala me pudieran decir que es lo que tengo mal en el siguiente codigo

Dim Sql1 As String = "SELECT id, cod_predio,nom_predio FROM predios"
Dim dAdapter As OleDbDataAdapter
Dim dSet As New DataSet()
dAdapter = New OleDbDataAdapter(Sql1, DB)
dAdapter.Fill(dSet)
DataGrid1.DataSource = dSet.Tables(0)

DataGrid1.CaptionText = "Predios"
DataGrid1.CaptionForeColor = Color.Cyan
Dim myEstiloGrid As DataGridTableStyle = New DataGridTableStyle
myEstiloGrid.MappingName = "predios"

Dim myEstiloCol As New DataGridTextBoxColumn
myEstiloCol.MappingName = "id"
myEstiloCol.HeaderText = "ID"
myEstiloCol.Width = 60

Dim myEstiloCol2 As New DataGridTextBoxColumn
myEstiloCol2.MappingName = "cod_predio"
myEstiloCol2.HeaderText = "Codigo"
myEstiloCol2.Width = 425

Dim myEstiloCol3 As New DataGridTextBoxColumn
myEstiloCol3.MappingName = "nom_predio"
myEstiloCol3.HeaderText = "Predio"
myEstiloCol3.Width = 55

myEstiloGrid.GridColumnStyles.Add(myEstiloCol)
myEstiloGrid.GridColumnStyles.Add(myEstiloCol2)
myEstiloGrid.GridColumnStyles.Add(myEstiloCol3)
DataGrid1.TableStyles.Add(myEstiloGrid)

Lo que falla es cuando intentas cargar el dataset a la griilla.

Pon esto:

DataGrid1.DataSource = dSet
DataGrid1.DataMember = dSet.Tables(0)

En vez de lo que has puesto: DataGrid1.DataSource = dSet.Tables(0)

Un saludo

Gracias por contestar amigo pero me sale un error que dice

un valor de tipo Systema.Data.Datatable no se puede convertir en String

tengo los NameSpace

Imports System.Data
Imports System.Data.OleDb

que podra ser ??

El código que da formato a la grilla me parece que está perfecto

Creo que te falla también la forma en que cargas el dataset, lo siento no lo repasé, te paso el código que yo utilizo.
Debería funcionar.

Dim Sql1 As String = "SELECT id, cod_predio,nom_predio FROM predios"
Dim conexion As OleDb.OleDbConnection
Dim dSet As New DataSet
Dim MiConexion As String
MiConexion = "Data Source= ...\mIbASEdATOS.mdb; Provider = Microsoft.jet.OleDB.4.0; Jet OLEDB:Database Password= MIpWD"
conexion = New OleDb.OleDbConnection
conexion.ConnectionString = MiConexion
Dim oDataAdapter As New OleDb.OleDbDataAdapter(Sql1, conexion)
oDataAdapter.Fill(dSet, "MiTabla")

DataGrid1.DataSource = dSet
DataGrid1.DataMember = dSet.Tables("MiTabla")

Quita Password= MIpWD" del churro de conexion si la bbdd no tiene contraseña

Un saludo