使 用 Inset Table Values()語 句 . 
    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