DataEnvironment1.rsSaveDocID.Find ("Loadname like '" & _
  DeleteNELoadStart.rstID!Loadname & "'"
 
If Not DataEnvironment1.rsDeleteNE_Status.EOF Then
     Do While DataEnvironment1.rsDeleteNE_Status!NE_ID = _
       DeleteNELoadStart.rstID!ID
        If IsNull(DataEnvironment1.rsDeleteNE_Status!Status_ID) Then
        Else
          DataEnvironment1.rsDeleteNE_Status.Delete
          DataEnvironment1.rsDeleteNE_Status.MoveNext
        End If
      Loop
    End If