How to delete Record in Access Database?

[Plucky]

Here is the Code:

Private Sub txtckprodopc1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

Adodc1.Recordset.MovePrevious
prvstkopc = Adodc1.Recordset.Fields(7).Value
Adodc1.Recordset.MoveNext
txtckstockop1.Text = Val(txtckprodopc1.Text) + prvstkopc

txtckprodsrc.SetFocus

End If
--------------------