Error connect to MsAccess in server

Hi, I faced a problem that is cannot access to Microsoft ACCESS database. I created DSN with the name = Shermont and actual name of  .MDB file is Shermont.mdb in my hosting and followed the instruction which is create a new folder named “database” and put same level with the HTML folder and paste my Ms ACCESS database into the folder, but still not work.

This is the code I used to access to the database:

            Dim con, rs, str

            set con=server.CreateObject("ADODB.CONNECTION")

            con.Open "Shermont"

            set rs=server.CreateObject("ADODB.RECORDSET")

            rs.ActiveConnection=con

            str="SQL statement"

            rs.open str

            …….

            rs.close

            con.close

And this is the error message when I process:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] '(unknown)' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.

can any one help to solve this problem ......

thanks a lot....