How to send a data recordset using Microsoft Message Queue Server message body

     Private Sub Form_Load()
     Dim rsSend As ADOR.Recordset
     Dim rsReceive As ADOR.Recordset
     Dim sql As String
     Dim RDS As Object
         
     Dim dataFactory As Object

     Dim qinfo As New MSMQQueueInfo
     Dim mSend As New MSMQMessage
     Dim mReceive As MSMQMessage
     Dim qSend As MSMQQueue
     Dim qReceive As MSMQQueue

     qinfo.PathName = ".\RecordsetQ"
     qinfo.Label = "My Recordset Queue"
        
     ' ignore if the queue already exists
     On Error Resume Next
     qinfo.Create
     On Error GoTo 0

     Set qSend = qinfo.Open(MQ_SEND_ACCESS, MQ_DENY_NONE)
     
     Set RDS = CreateObject("RDS.DataSpace")
         
     Set dataFactory = RDS.CreateObject("RDSServer.DataFactory", _
                                        "http://localhost")

     sql = "select * from authors"
     Set rsSend = dataFactory.query("driver={SQL Server};SERVER=(local);" & _ 
                                    "database=pubs;Username=<username>;PWD=<strong password>;", sql)
         
      mSend.Label = "Testing Recordset"
      mSend.Body = rsSend
      mSend.Send qSend
      qSend.Close

      MsgBox "Message sent with Recordset"
        
      Set qReceive = qinfo.Open(MQ_RECEIVE_ACCESS, MQ_DENY_NONE)
         
      Set mReceive = qReceive.Receive
      Set rsReceive = mReceive.Body
         
      Debug.Print rsReceive(0).Value ' print column 1
      Debug.Print rsReceive(1).Value ' print column 2
      Debug.Print rsReceive(2).Value ' print column 3
         
      rsReceive.MoveNext
         
      Debug.Print rsReceive(0).Value ' print column 1
      Debug.Print rsReceive(1).Value ' print column 2
      Debug.Print rsReceive(2).Value ' print column 3
      
 End Sub