Function PictureToAD(szADSOBJ, szFileName)
Dim objUser, bytesRead, adoStreamRead
Const adTypeBinary = 1
Set adoStreamRead = CreateObject(“ADODB.Stream”)
adoStreamRead.Type = adTypeBinary
adoStreamRead.Open
adoStreamRead.LoadFromFile szFileName
bytesRead = adoStreamRead.Read()
adoStreamRead.Close
Set objUser = GetObject(szADSOBJ)
objUser.Put “thumbnailPhoto”, bytesRead
objUser.SetInfo
End Function