<div>
Hope this works.<br />
<br />
With Adodc1.Recordset<br />
&nbsp; .Delete<br />
&nbsp; .MoveNext<br />
If .EOF then<br />
&nbsp; .MovePrevious<br />
End If<br />
End With
</div>


Hope this works.

With Adodc1.Recordset
  .Delete
  .MoveNext
If .EOF then
  .MovePrevious
End If
End With

<div>
<div class="content wysiwyg-content">
following is the code I copied from a book. I think it is not correct!<br />
If you think so, tell me how to correct it.<br />
<br />
&nbsp; &nbsp; With Adodc1.Recordset<br />
&nbsp; &nbsp; &nbsp; &nbsp; .Delete<br />
&nbsp; &nbsp; &nbsp; &nbsp; If Not .EOF Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .MoveNext<br />
&nbsp; &nbsp; &nbsp; &nbsp; Else<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .MoveLast<br />
&nbsp; &nbsp; &nbsp; &nbsp; End If<br />
&nbsp; &nbsp; End With
</div>
</div>


following is the code I copied from a book. I think it is not correct!
If you think so, tell me how to correct it.

    With Adodc1.Recordset
        .Delete
        If Not .EOF Then
            .MoveNext
        Else
            .MoveLast
        End If
    End With

Correct the code from a book

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.