使用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
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