[سعود]

بارك الله فيك
وجدت طريقة باستخدام هذا الاستعلام وه كالتالي:

كود :

Dim b As Integer = 0
    Dim c As Integer = b

كود :

"select * from `user` order by `userid` ASC LIMIT " & c & ",5"

وعند حدث ProgressChanged
كتبت
b += 1
وعند حدث RunWorkerCompleted
كتبت

كود :

c += b
            If tuser_importer.IsBusy = False Then
                tuser_importer.RunWorkerAsync()
            End If

يعمل بشكل جيد وعند وصول الرقم 165 يثبت عليها لكنه لا ينهي وانما اشاهد اضطراب في مربع النص (مدري شلون اوضح لكن مثل شاشة الفيديو لما توقف بشكل مؤقت)