With ADO, the following are still functional. Therefore, if you wish, you may edit records with something similar to the following:
Private Sub cmdEdit_Click()ReadFieldsKirbyStock
rs.Update
End Sub
Public Sub ReadFieldsKirbyStock()rs.Fields("StockID") = txtStockID.Text
rs.Fields("UnitPrice") = txtUnitPrice.Text
rs.Fields("OnHand") = txtOnHand.Text
rs.Fields("Reorder") = txtReorder.Text
rs.Fields("Description") = txtDescription.Text
End Sub