I'm trying to create an application that searches Novell Messenger in VB6. However, I'm getting an error, and I need a helpful hint on what I need to do differently in my program.

It's in VB6 and looks like this so far...

Private Sub Form_Load()
Dim ssn As New NMSession
Dim prv As INMIMProvider
Dim us As INMUser
Dim us2 As INMUser
Dim src As INMArchiveSearch
Dim sres As INMArchivedResult
Dim mct As Long
Dim ec As NMErrorCode
Dim svr As String
Dim prt As Long
Dim sdate As Date
Dim edate As Date
sdate = #6/1/2008 12:00:01 AM#
edate = #6/18/2008 12:00:01 AM#
On Error Resume Next

Call ssn.GetIMProvider(prv)
Call prv.AutoLogin(us)

MsgBox us.GetUserID
Call us.GetServer(svr, prt)
Call us.CreateArchiveSearch(src)
src.InitSearch "CN=CGrossman,OU=Users,O=City", "", sdate, edate
src.SearchAll mct

If Err <> 0 Then
MsgBox Err & " " & Err.Description
ec = prv.GetLastError
MsgBox ec
MsgBox prv.GetLastErrorValue
End If


Set src = Nothing
Set us = Nothing
Set prv = Nothing
Set ssn = Nothing


End Sub

I'm getting an error on SearchAll. which is -2147467259 Automation error Unspecified error. The GetLastError is 6, and GetLastErrorValue is 53514. The error code 6 from GetLastError and the value 53514 (engine error code) both mean ERR_NOT_SUPPORTED: An operations was attempted that is currently not supported.

Thank you!