Error while creating folder in exchange public folder

[Sudha]

Hi,

When i try to create a folder in the exchange public folder, i hit an
error "-2146105340 Method '~' of object '~' failed" for the vb
statement "recFolder.Open szURL, , adModeReadWrite,
adCreateCollection"

Following is the synopsis of the code for reference:
Set recFolder = New ADODB.Record
szURL = "file://./backofficestorage/domain.name/PUBLIC
FOLDERS/testfolder"
Dim szContentclass As String
szContentclass = "urn:content-classes:folder"
recFolder.Open szURL, , adModeReadWrite, adCreateCollection
recFolder.Fields("DAV:contentclass") = szContentclass
recFolder.Fields.Update
Set recFolder = Nothing

Could anyone pl. help to find the problem.

Thanks in advance

Rgds
Sudha