Nick: Here it is:

*save all values to variables
WITH THISFORM
cComments = .edtComments.TEXT
cContact = .txtContact.TEXT
cDate_last_renewed = .txtlast_date_renewed.TEXT
cDescription = .edtDescription.TEXT
cExpiry_date = .txtExpiry_date.TEXT
cFunctional_area = .txtFunctional_area.TEXT
cId = .txtId.TEXT
bIn_newsmill = .chkIn_Newsmill.VALUE
bMark_for_removal = .chkMark_for_removal
cPass = .txtPass.TEXT
cSource_address = .txtSource_address.TEXT
cSource_email = .txtSource_email.TEXT
cSource_fax = .txtSource_fax.TEXT
cSource_name = .txtSource_name.TEXT
cSource_phone = .txtSource_phone.TEXT
cSub_currency = .txtSub_currency.TEXT
cSub_frequency = ""
cSub_frequency = TRIM(.cboSub_frequency.value)
cSub_price = .txtSub_price.TEXT
bTrade = .chkTrade.VALUE
cUid = .txtUid.TEXT
cUrl = .txtUrl.TEXT
ENDWITH

*END VALIDATE===================================


*INSERT THE RECORD
INSERT INTO tblSubscription (comments, contact, date_last_renewed, DESCRIPTION, ;
expiry_date, functional_area, id, in_newsmill, ;
mark_for_removal, pass, source_address, source_email, ;
source_fax, source_name, source_phone, sub_currency, ;
sub_frequency, sub_price, trade, uid, url) ;
VALUES (cComments, cContact, cDate_last_renewed, cDescription, cExpiry_date, ;
cFunctional_area, cId, bIn_newsmill, bMark_for_removal, cPass, cSource_address, ;
cSource_email, cSource_fax, cSource_name, cSource_phone, cSub_currency, ;
cSub_frequency, cSub_price, bTrade, cUid, cUrl)