dim rec as new adodb.recordset
if rec.state=1 then rec.close
rec.open sql,DB,1,3
rec.close
rec.open sql,DB,1,3
rec.movelast

adesso ho provato a buttarti giù un po di righe ma non ti conviene fare un insert bensi un addnew...ovvero l'oggetto recordset ha un metodo chiamato addnew che ti aggiunge una tupla vuota che tu dovrai riepire....

dimmi se non hai capito che ti posto lo script tutto fatto