vb excel导入access数据库问题，急，急，急！！！

Private Sub ExportExcelSheetToAccess(sSheetName As String, _
  sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
          
          Dim db  As Database
          Dim rs     As Recordset
          Set db = OpenDatabase(sExcelPath, True, False, "Excel 5.0")
          Call db.Execute("select * into   [;database=" & sAccessDBPath & "]." & sAccessTable & " from  [" & sSheetName & "$]")
          'MsgBox "Table   exported   successfully.", vbInformation, "Yams"
End Sub下面是打开窗体是调用该过程
ExportExcelSheetToAccess "Sheet1", App.Path & "\教学业务费.xls", "教学业务费", App.Path & "\财务.mdb"
运行时显示“实时错误3010，表“教学业务费”已存在”请问怎么解决这样的问题？？ 在线等待……