[Adrees]

جرب الكود التالي

PHP كود :

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