Dim sURL As String
    sURL = "http://comserver/public/lctop/test1.eml"
 
    Dim oCn As New ADODB.Connection
    Dim oRc As New ADODB.Record
    Dim oFields As ADODB.Fields
 
    oCn.Provider = "exoledb.datasource"
 
    oCn.Open sURL, "", "", 0
 
 
    oRc.Open sURL, oCn, adModeReadWrite, adCreateOverwrite, adUnspecified, "", _
      ""
 
 
    Set oFields = oRc.Fields
 
    oFields.Item("DAV:contentclass").Value = "urn:content-classes:Person"
    oFields.Item( _
      "http://schemas.microsoft.com/exchange/outlookmessageclass").Value = _
      "IPM.Contact"
    oFields.Item("urn:schemas:contacts:cn").Value = "David Jones"
    oFields.Item("urn:schemas:contacts:nickname").Value = "Dave"
    oFields.Item("urn:schemas:contacts:title").Value = "Engineer"
    oFields.Item("urn:schemas:contacts:department").Value = "Microsoft"
    oFields.Item("urn:schemas:contacts:Email1").Value = "someone@example.com"
    oFields.Item("urn:schemas:contacts:fileas").Value = "Dave Jones"
 
    oFields.Update
 
    Set oCn = Nothing
    Set oRc = Nothing
    Set oFields = Nothing