主题：向SQL数据库追加数据

向SQL数据库追加一批数据，我的做法是用Merger方法将EXCEL类型数据合并到数据表中，再执行保存命令，

由于数据量较大（80列，2000行），保存比较耗时（可能是我的方法有问题）做了一个进度条，代码如下：

Dim s As Integer
Dim jd As WinForm.ProgressBar = e.Form.Controls("ProgressBar1")
jd.Minimum=0
jd.Maximum=Tables("测试").Rows.Count
e.Form.Controls("ProgressBar1").Visible=True
For s = 0 To Tables("测试").Rows.Count-1
    Tables("测试").Rows(s).Save()
    If s Mod 20 = 0 Then
        jd.Value=s
        Application.DoEvents()
    End If
Next
MessageBox.Show("导入完成!","提示")

现在主要想解决保存的速度问题，搜了一下论坛贴子，说是用事务，但这句不知道怎么弄

cmd.CommandText = "save From {测试}"

或者各位老大有什么好办法，请赐教！