For I = 1 To 20 Step 1 '插入20条记录
J="NewPKValue"
J= J & I
StrSQL = "INSERT INTO MyTable (PKID,MyField)" & " " _
& "VALUES('" & J & "','MyValue')"
MyConnection.Excute StrSQL
Next I
For I = 1 To 20 Step 1 '插入20条记录
StrSQL = "INSERT INTO MyTable (PKID,MyField)" & " " _
& "VALUES('" & I & "','MyValue'" _
MyConnection.Excute StrSQL
Next I