hello,

How do I prevent from getting an error when deleting the last record of a recordset using VB5.

sample code:-
Private Sub cmdDelete_Click()
Dim response
response = MsgBox("Delete current Record", vbOKCancel, "DELETE RECORD")

If response = vbOK Then ' User chose Yes.
With Data1.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast
End With
End If
End Sub

Thank you.