Procedure	Delete
Description
Removes the current record.
Example
If PhoneYesNo = "No" Then
Record.Delete
Else
If Phone = "NK02748" Then
Record.FieldValues("SubPartNo") = "NOKIA-PHONE"
End If
If Phone = "PH023478" Then
Record.FieldValues("SubPartNo") = "PHILIPS-PHONE"
End If
End If