I get this error when executing this line:

Set oRecMessage = moFNSMsgServer.MMessageADOShapeFromCode(sMessageTy pe, sBuffer & Space(983))

"Multiple-step operation generated errors. Check each status value."

I have other places that use the same code, but dont get an error.

The fulller code::::

Public Function GetHostMessageRecordset(sBuffer As String, sMessageType As String) As ADODB.Recordset

On Error GoTo Errorhandler

Dim oRecMessage As ADODB.Recordset
Dim i As Integer
Dim sDate As String

Set oRecMessage = moFNSMsgServer.MMessageADOShapeFromCode(sMessageTy pe, sBuffer & Space(983))

Set GetHostMessageRecordset = oRecMessage

End Function

'' The above function is called by this one:

Function SaveChequeIssueReceiptLine(rsBuffer As String) As Integer

On Error GoTo Err_Handler

Dim sRecdType As String
Dim vRS As ADODB.Recordset
Dim fd As ADODB.Field

Debug.Print rsBuffer
SaveChequeIssueReceiptLine = False

' Retrieve the message definition
Set vRS = GetHostMessageRecordset(Mid(rsBuffer, 10), "Print_51")

mtblDoc.Fields("DocTableKey").Value = glCurrPrintKey

' For each field in the print request
For Each fd In vRS.Fields
If Left$(fd.Name, 1) <> "!" Then
mtblDoc.Fields(fd.Name).Value = fd.Value
End If
Next ' fd

Set vRS = Nothing

' If we made it here, there must be no errors
SaveChequeIssueReceiptLine = True

Exit Function

End Function

Basically the message definition is read from an Access db, and at the point where VB tries to get the definition it produces the above error.

Any help much appreciated.