Option Explicit
Public Sub RetrieveAllFieldsForMoreThanOneSecurity()
    Dim IQ As Object
    Dim Command As String
    Dim ColCount As Integer
    Dim Col As Integer
    Set IQ = CreateObject("MotifXL.IQServer")
    Command = "select * from security where SymbolCode = '1015.MYX[Demo]'"
    IQ.ExecuteIQCommand (Command)
    RowCount = IQ.GetRowCount()
    ColCount = IQ.GetColumnCount()
    For Col = 1 To ColCount
        Cells(1, Col) = IQ.GetFieldByIndex(1, Col)
    Next Col
    Set IQ = Nothing
End Sub