چر این کد کار نمکنه؟؟؟

[RamezanBeik]

سلام این کد مشکلش چیه که عمل حذف رو انجام نمی ده




Private Sub Cmd_delet_Click()
Do While Rs.EOF = False
If Rs.Fields!Id = number Then
If MsgBox("" & " " & Rs.Fields!Name & " " & Rs.Fields!Family & " " & "", vbQuestion + vbYesNo + vbMsgBoxRight, "") = vbYes Then
Rs.Delete adAffectCurrent
Set Grid.DataSource = Rs
End If
Unload Me
Me.Show
Call changecaption
Exit Sub
Else
Rs.MoveNext
End If
Loop
End Sub