strSQL = "Insert Into Riesgos(rie_proyecto_cod, rie_fecha_gen, rie_premisa, rie_titulo) "
strSQL = strSQL & "values ('" & proyecto & "','" & fecha_generacion & "'," & premisa & ",'" & titulo & "')"
set strRS = Cnn.Execute(strSQL )
SQL = "Select @@identity as rie_id From Riesgos"
set RS = Cnn.Execute(SQL)
