Ê¹ ÓÃ Inset Table Values()ÕZ ¾ä . 
    dim Adoconn as adoconn.connection 
    dim sSQL as string,i as integer 
     
    For i=1 to N 
     sSQL=sSQL & " Insert Table Values(.....)" 
    Next 
    Adoconn.exec sSQL 
