[Marwan9990]

تم ايجاد الكود هذا هو للفائده 

كود :

Con.Open()
       Dim cmd As New OleDbCommand()
       cmd.CommandText = "select Count(*) from Mobiles"
       cmd.Connection = Con

       Dim RecordCount As Integer

       RecordCount = cmd.ExecuteScalar
       TextBox1.Text = RecordCount

       Con.Close()

طريقة الاستخدام :
تفتح فورم جديد وتعمل فيه تكس بوكس وتتاكد انه اي دي ل تكس بوكس الي وضعته ( TextBox1)


تضع الكود حدث لود بيج 

وتشغل برنامج ومبارك عليك