Imports System.Data.OleDb
Public Class Form1
Dim myconnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database1.mdb")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("Select Count(M_id) from Table1", myconnection)
da.Fill(dt)
Label2.Text = dt.Rows(0)(0)
If dt.Rows(0)(0) = 10 Then
MessageBox.Show("عفواً....انتهت صلاحية البرنامج يجب عليك شراء النسخة الكاملة.", "إنتهاء الصلاحية", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
Application.ExitThread()
End If
End Sub
End Class