Adodc1.RecordSource="Select * From "& MyTableName &""
Adodc1.RecordSet.AddNew
Adodc1.RecordSet!Column1=数据1
Adodc1.RecordSet!Column2=数据2
. . .
Adodc1.RecordSet.Update
Adodc1.RecordSource="Select * From "& MyTableName &""
Adodc1.RecordSet.AddNew
Adodc1.RecordSet!Column1=数据1
Adodc1.RecordSet!Column2=数据2
. . .
Adodc1.RecordSet.Update