В DataGridView не отображаются данные из таблицы

Imports System.Data.OleDb
Public Class Form1
    Dim Con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source= 'C:\Users\Admin\Documents\Visual Studio 2013\Projects\RobertoApp2\RobertoApp2\bin\Debug\Database31.accdb'") ' Переменная для подключения базы
    Dim SqlCom As OleDb.OleDbCommand ' Переменная для Sql запросов
    Dim DT As New Data.DataTable ' Таблица для хранения результатов запроса
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "Connect to base"
        Dim DA As OleDb.OleDbDataAdapter ' Адаптер для заполнения таблицы после запроса
        DT.Clear() 'Очищаем таблицу
        SqlCom = New OleDb.OleDbCommand("SELECT * FROM [Age]", Con) ' Указываем строку запроса и привязываем к соединению
        Con.Open() ' Открываем соединение
        SqlCom.ExecuteNonQuery() 'Выполняем запрос
        DA = New OleDb.OleDbDataAdapter(SqlCom) 'Через адаптер получаем результаты запроса
        DA.Fill(DT) ' Заполняем таблицу результатми
        Me.DataGridView1.DataSource = DT ' Привязываем Грид к источнику данных
        Con.Close() ' Закрываем соединение
    End Sub
End Class

        Dim GRP_DA As SqlDataAdapter = New SqlDataAdapter(ВАША СТРОКА)
        Dim GRP_DS As New DataSet
        '
        Try
            MyConnection.Open()
            '
            GRP_DA.FillSchema(GRP_DS, SchemaType.Source, "GRPS")
            GRP_DA.Fill(GRP_DS, "GRPS")
            '
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        Finally
            MyConnection.Close()
        End Try

SqlCom.ExecuteNonQuery() 'Выполняем запрос

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=…

Dim GRP_DA As SqlDataAdapter = New SqlDataAdapter(ВАША СТРОКА)

Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
    Dim dbProvider As String = "Provider=Microsoft.ACE.OLEDB.12.0;"
    Dim dbSource As String = "Data Source=" & Path.Combine(Application.StartupPath, "Книги2007.accdb;")
    con.ConnectionString = dbProvider & dbSource & " Persist Security Info=False;"
    Dim cmd As New OleDbCommand("select * from Books", con)
    cmd.CommandType = CommandType.Text
    Dim tb As New DataTable()
    con.Open()
    Dim DA As OleDb.OleDbDataAdapter
    cmd.ExecuteNonQuery()
    DA = New OleDb.OleDbDataAdapter(cmd)
    DA.Fill(tb)
    Me.DataGridView1.DataSource = tb
    con.Close()
End Sub