Error message "Cannot load dll " while loading vba macro

[Digamber]

Hi,

I am having an Excel file in which i have created many VBA macros in it.Whenever i try to save this file i am getting an message which says me Excel cannot save the file and evenif i try to load any macro in it at that time i am getting an error message as Cannott load dll.

Can anyone help me out with this error messages.Thanks in Advance.

[Clark]

Try to follow the below steps:-

1. Open the project and on the Project menu, click on References.
2. Now clear the Microsoft DAO 2.5Compatibility Library and select the Microsoft DAO 3.5 Object Library.
3. Click OK and save the project.
4. Now return to References, switch the object libraries back again and resave the project.
5. In the Setup Wizard - Click on ActiveX Server Components pane of the Setup Wizard, click Add Local, and add MSJET35.DLL from your Windows\System directory (Windows 95) or Windows\System32 directory (Windows NT). This process adds the Microsoft Jet 3.5 database engine and its supporting files.

[Digamber]

I have try to follow the above steps but still facing same issue.

[JonathanD]

I was also gettign same message because there was some connection error i try to connect it manually by using the following code.

Set ws = CreateWorkspace("A", "", "", dbUseODBC)
Set db = ws.OpenDatabase("")
Dim connect As String
connect = db.connect

Set db = ws.OpenDatabase("", , , connect)
sql = "SELECT " & finalSelection & Chr(13) & "" & Chr(10) & "FROM " & lib & "." & file1 & " " & file1 & textfinal1

Set rs = db.OpenRecordset(sql)