[محمد كريّم]

اذا كان غرضك من هذا الكود هو حساب عدد السجلات من الجدول
فعدل الاستعلام بحيث يجلب العدد من قاعدة البيانات مباشرة

كود :

If con.State = ConnectionState.Closed Then con.Open()
        Dim sql As String
        Dim _count As Integer
        
        sql  = "SELECT Count(*) FROM tabel1"
        Dim Cmd As New OleDbCommand(sql , con)

        _count = CInt(Cmd.ExecuteScalar()) 'عدد السجلات
        'Cmd.ExecuteNonQuery()

أما إذا كان القصد حساب السجلات الناتجة من استعلام عن البيانات
فيمكن حسابها من الـ DataTable المسندة إليها أو الـ DataGridView التي ستعرض فيها