Private Sub FillGridUrl()
  db = New SqlCeConnection("Data Source=" & PathToDataBase)
  Dim comand As New SqlCeCommand("SELECT url_id, url_name, url_prim FROM urls", db)
  Dim adapter As New SqlCeDataAdapter(comand)
  Dim dataset As New DataSet
  adapter.Fill(dataset, "urls")
  With GridViewUrl
   .DataSource = dataset
   .DataMember = "urls"
   .Columns(0).Visible = False
   .Columns(1).Visible = False
  End With
  Dim column As New DataGridViewLinkColumn
  column.DataPropertyName = "url_name"
  column.HeaderText = "Ссылка"
  GridViewUrl.Columns.Add(column)
  db.Close()
  GridViewUrl.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
 End Sub