[Mtaktak]

السلام عليكم ورحمة الله

سوف اضع لكم كود برمجي بلغة VB6  وهو :

كود :

Dim RS As New ADODB.Recordset
Dim SQL As String
SQL = "select * from Data1 where ID = " & Text1.Text & " "
If RS.EOF = False Then
   i = 0
   Do While Not RS.EOF
       i = i + 1
       RS("ID") = i
   loop
   RS.Update
End If
RS.Close
Set RS = Nothing

بحثت وحاولت اجد مثل هذا الكود في VB.NET  
كل ما اجده هو شرح طويل جدا وعمل كودات متداخلة من اجل عمل مثل هذا الكود البسيط