Отображение данных в DataGridView

db = New SqlCeConnection("Data Source=" & PathToDataBase)
        Try
            Dim comand As New SqlCeCommand("SELECT url_name as [Ссылка], url_prim as [Описание] FROM urls ORDER BY url_id", db)
            Dim adapter As New SqlCeDataAdapter(comand)
            Dim dataset As New DataSet
            adapter.Fill(dataset, "urls")
            With GridViewUrl
                .DataSource = dataset.DefaultViewManager
                .DataMember = "urls"
            End With
 
        Catch FillurlErr As Exception
            MsgBox(FillurlErr.Message)
        Finally
            GridViewUrl.CurrentCell = GridViewUrl.Item(1, 0)
            db.Close()
        End Try

Imports System.Data.OleDb
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim connection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\База данных1.mdb")
        Dim adapter As New OleDbDataAdapter("SELECT * FROM t", connection)
        Dim dataSet As New DataSet()
        adapter.Fill(dataSet, "t")
        Dim grid As New DataGridView()
        Dim bindingSource As New BindingSource(dataSet, "t")
        grid.DataSource = bindingSource
        Me.Controls.Add(grid)
        Dim linkColumn As New DataGridViewLinkColumn()
        linkColumn.DataPropertyName = "html"
        linkColumn.HeaderText = "Ссылки"
        grid.Columns(1).Visible = False
        Me.Text = grid.Columns.Count.ToString()
        grid.Columns.Add(linkColumn)
    End Sub
End Class