dim strsql
strsql = "insert into issued (version,serialnumber,subjectname,issuername,validfromdate,validtodate,certificate) values ('" _
& ilca.version & "','" _
& left(ilca.serialnumber, 20) & "','" _
& ilca.subjectname & "','" _
& ilca.lssuername & "','" _
& ilca.validfromdate & "','" _
& ilca.validtodate & "','" _
& ilca.certificate & "')"
conn.EXECute strsql
conn.close