求个实例，vb，将excel追加到access的表中。

注意哈，是“追加”到access的一个表中。实在不行就给个添加到mdb新表的吧。发给我个实例吧，做了半天，实在不知道怎么回事，老是出错，请高手给个吧。。。
源文件，包括mdb数据库文件，还有excel文件都给我吧。。。
如果可以的话，功能最好可以将excel文件名，mdb文件中的表名（这个可以不用，最好可以），用变量代替。
发邮箱：263885058@qq.com
谢谢啦！ --------------------编程问答-------------------- 经实际测试，以下代码数据库和Excel之间互相导入导出，完全成功！
Private Sub Command1_Click()
    'access导出到excel
    Dim db As New ADODB.Connection
    Dim sPath As String

    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Temp\Test\db1.mdb Persist Security Info=False"

    sPath = App.Path + "\backup.xls"
    If Dir(sPath) <> "" Then
        Kill sPath
    Else

    Call db.Execute("select * into Sheet1  In '" & sPath & "' 'excel 8.0;' from 表1")
        MsgBox "导出成功", vbOKOnly, "提示"
    End If

    db.Close
    Set db = Nothing
End Sub

Private Sub Command2_Click()
    '从excel导出到 access
   Dim db As New ADODB.Connection
    Dim sPath As String

    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Temp\Test\db1.mdb;Persist Security Info=False"

    sPath = App.Path + "\backup.xls"
    Call db.Execute("select * into Table4 From [Sheet1$]  In '" & sPath & "' 'excel 8.0;'")

    db.Close
    Set db = Nothing
End Sub

--------------------编程问答-------------------- 大哥，实验成功了啊，但是还有个问题想问您啊，这个怎么才可以让excel文件名用变量表示啊？我要是想导入其他excel文件怎么办？提示表Table4已存在，怎么解决这个问题啊？我想，怎么可以吧表名称和excel文件名都用变量来表示？行不？怎么才可以实现呢？ --------------------编程问答-------------------- 把sPath内容改一下不就是了

补充：VB ,  控件