[Taha Okla]

هذا مش منطقي، ولكن :
استبدل الكود عندك بالكود التالي :

كود :

Private Sub cmdDelete_Click()
   If rs.State = 1 Then rs.Close
   SQL = "Delete * from Tabel2 where Num =" & Text9.Text & ""
       rs.Open SQL, db, adOpenKeyset, adLockOptimistic
   MsgBox " تمت عملية الحذف بنجاح", vbInformation
   Call ClearAll
   '--------------------------------
   If rs.State = 1 Then rs.Close
   Dim strSQL As String
   strSQL = "Select * from Tabel2 Order By Num"
   rs.Open strSQL, db, adOpenDynamic, adLockOptimistic
   rs.MoveFirst
   Dim i As Integer: i = 1
   Do While Not rs.EOF
       rs!Num = i
       rs.Update
       rs.MoveNext
       i = i + 1
   Loop
   '--------------------------------
   Call Form_Load
End Sub