ispirati

codice:
   Set Rs = New adodb.Recordset
   Rs.Fields.Append "Testo", adBSTR, 50
   Rs.Fields.Append "Numero", adCurrency, , adFldMayBeNull
   Rs.Open

   Rs.AddNew
   Rs.Fields(0) = testo_da_file
   Rs.Fields(1) = numero_da_file
   Rs.Update

   Rs.Close