** I first set up the recordset like this.
cSQL1 = "SELECT a.* FROM intervie a WHERE a.genid = '"+oaccucare.c_genid+"'"
thisform.oRsIntervie = createobject("ADODB.RecordSet")
thisform.oRsIntervie.ActiveConnection = oConnect
thisform.oRsIntervie.cursorType = 3
thisform.oRsIntervie.LockType = 3
on error =oAccucare.adoerror(oConnect)
thisform.oRsIntervie.open(lcSQL1)
on error &l_cOldErr
if oConnect.ERRORS.count > 0 and oConnect.ERRORS(0).number > 0
wait window 'The Table INTERVIE is not available.' timeout 1.4
return .f.
endif
** Then I add a new record
if oaccucare.l_newrecord && True for a new record
thisform.oRsIntervie.addnew
thisform.SetDefaults(thisform.oRsIntervie)
thisform.oRsIntervie.fields('genid').value = oaccucare.c_genid
thisform.oRsIntervie.fields('intid').value = oaccucare.getpkkey("INTERVIE","INTID")
endif
** Then if I do a...
thisform.orsIntervie.update
** It gives me the above error.