Microsoft JET Database Engine error '80004005'

I am receiving this error.

[satalways]

Hi,

I am receiving this error in my web site. Even I am using these codes...

Dim Con, Rec
Set Con = Server.CreateObject("ADODB.Connection")
Set Rec = Server.CreateObject("ADODB.Recordset")

If Con.State=1 Then Con.Close

Con.Provider = "Microsoft.Jet.OLEDB.4.0"
Con.ConnectionString = "D:\site\bazar\1\admin\pathdata\BazarData_.mdb"
Con.Open

I am also closing this at end of each page. like this.

If Rec.State=1 Then Rec.Close
If Con.State=1 Then Con.Close
Set Con=Nothing
Set Rec=Nothing

Can anyone help me.
Thank in Advance.

[steve]

Search Google for '80004005' the first result is a extensive Microsoft guide to troubleshooting this error.

[satalways]

Thank you very much, I got the solution from Google already.

Thanks again for replying.