急急急!!!!!!!!!

If MsgBox("确认要删除" & Combo1.Text & "吗？", 1) = 2 Then

         Exit Sub
End If

AdoJDdata.Recordset.MoveFirst
 
 If AdoJDdata.Recordset.Fields("JDx1") = PicJD(Index).Left And AdoJDdata.Recordset.Fields("JDy1") = PicJD(Index).Top Then
      
       AdoJDdata.Recordset.Delete
       MsgBox "该用户已成功删除！"
     Exit Sub
Else
   
 
  Do
     Adodc1.Recordset.MoveNext
     If AdoJDdata.Recordset.Fields("JDx1") = PicJD(Index).Left And AdoJDdata.Recordset.Fields("JDy1") = PicJD(Index).Top Then
   
        AdoJDdata.Recordset.Delete
        MsgBox "该用户已成功删除！"
     End If
  
 Loop

End If


End Sub

  Do
     Adodc1.Recordset.MoveNext
     If AdoJDdata.Recordset.Fields("JDx1") = PicJD(Index).Left And AdoJDdata.Recordset.Fields("JDy1") = PicJD(Index).Top Then
   
        AdoJDdata.Recordset.Delete
        MsgBox "该用户已成功删除！"
'这里+个退出啊,
        exit do
     End If

Loop



'这里+个退出啊,
        exit do