>loConnection=CREATEOBJECT('ADODB.Connection') >loConnection.Open("Provider=VFPOLEDB.1;Data Source=d:\;Mode=ReadWrite;Password='';Collating Sequence=MACHINE") > >loRecordSet=CREATEOBJECT('ADODB.RecordSet') >loRecordSet.Open('INSERT INTO EVENT (Title) VALUES ("TEST")',loConnection,1) >>