Retrieving info with access module, getting error 3170. Where is the problem?

Please help if you have experience in creating databases
With my knowledge I am not able to solve this by my own.

I'm trying to import excel workbook sheets into access table, but keep getting error messages.
"Error 3170 - Could not find installable ISAM"
I downloaded xbs200.dll (ver. 2.00), but am no wiser, since it doesn't seem to affect anything.

My code goes as follows:
***
Function
.....
tabel = "UusTabel"
Apath = "c:\my documents\db\proov.mdb"
sheetpath = InputBox("Input source file name" _
& Chr(10) & "(full path):", "Import")
Select Case Sheetname
Case Page = 1
Sheetname = "Lisa A.Üldiseloomustus."
Case Page = 2
Sheetname = "Lisa 1.Kütused"
Case Page = 3
Sheetname = "Lisa 1.A Kütuste hinnad" ' etc.
.....
Call ExportExcelSheetToAccess(Sheetname, sheetpath, tabel, Apath)
.....
Private Sub ExportExcelSheetToAccess(Sheetname As String, sheetpath As String, tabel As String, epath As String)
'Should I use different variable names in this sub as parameters maybe?

Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(epath, True, False, "excel 10.0")

Call db.Execute("SELECT * INTO [database=" & epath & "]." & _
tabel & " FROM " & epath & "." & Sheetname & " ; ")

db.Close
rs.Close
Set db = Nothing
Set rs = Nothing
End Sub
***
Thanks

Think i posted the question on a wrong forum Guess I'll have to rewrite my code.

Function Import ()
DoCmd.TransferSpreadsheet _
acImport,acSpreadsheetTypeExcel8, "NewTableInAccess", "pathToExcelFile", True, "SheetName!Range" '(All if no range)
End Function


IF Anyone knows how to GET RID of Punctuation in the names of ExcelSheets via MS Access VBA Module, post right here.