Private Sub CommandButton1_Click()

Dim db As New MxBtbase.BtDatabase
Dim rs As New MxBtbase.BtRecordset
Dim sKom As String


' otwarcie bazy
' zgodnie z przeslaną dokumentacją parametry
' db.Open katalog_dobazy nazwa_uzytkownika haslo

  db.Open "D:\Symf\FKP20111\demo_fk", "Admin", ""
 
' ustawienie recordseta
  Set rs.BtDatabase = db
 
  ' ustawienie tabeli
  rs.Open "frok", "05rok.dat"
 
  ' ustawienie klucza
  rs.SetKey "rok"
  rs.KeyField("rokId") = 0
   
  'pobranie pierwszego rekordu spełniającego powyższy warunek
  rs.GetRec (GETGE)
   
  ' Czytamy pobrane dane (oczywiscie jak nie bylo po drodze bledu)
 
  sKom = "Lista lat w bazie : "
 
  ' aż do końca
  While rs.LastError = 0
 
   sKom = sKom + rs.Value("katalog") + " "
 
  ' następny rekord
  rs.GetRec (GETNEXT)
 
  ' koniec pętli
  Wend

  ' wyświetlenie wyniku
  MsgBox sKom
 
  ' zamkniecie bazy

  db.Close


End Sub

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.IO;
using System.Security.Cryptography;

namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        protected string GetMD5HashFromFile(string fileName)
        {
            FileStream file = new FileStream(fileName, FileMode.Open);
            MD5 md5 = new MD5CryptoServiceProvider();
            byte[] retVal = md5.ComputeHash(file);
            file.Close();

            StringBuilder sb = new StringBuilder();
            for (int i = 0; i < retVal.Length; i++)
            {
                sb.Append(retVal[i].ToString("x2"));
            }
            return sb.ToString();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            if (GetMD5HashFromFile("D:\\Symfonia\\FK\\DEMO_FK\\01sec.dat") == "1c79ef0737fb718016801f050387dc8e")
            {
                MessageBox.Show("Dodatek przeznaczony dla innej licencji programu");
            }
            else
            {
                MessageBox.Show("OK");
            }
        }
    }
}