请问如何从VB的Text框中读入查询语句（MDX语句）

我用ADODC连接了数据仓库，想通过界面中的Text框写入MDX语句，以此对数据仓库进行查询，并将结果显示在DataGrid中，请问应如何实现，或者哪位有源代码。下面是其中的一段源代码，只是还有很多不懂得地方，请各位帮忙解释一下。谢谢

Set objConnection = New ADODB.Connection
Set objCellset = New ADOMD.Cellset
objConnection.Open "Data Source=" & c_ComputerName & ";Provider=MSOLAP;"
Set objCellset.ActiveConnection = objConnection

objCellset.Open txtMDXQuery.Text
With objCellset.Axes
With .Item(0).Positions
For lngAxes0PositionCounter = 0 To (.Count - 1)
lstAxes0Positions.AddItem "Position" & lngAxes0PositionCounter
Next
End With
With .Item(1).Positions
For lngAxes0PositionCounter = 0 To (.Count - 1)
lstAxes1Positions.AddItem "Position" & lngAxes0PositionCounter
Next
End With
End With
With objCellset.FilterAxis
For lngAxesSlicerCounter = 0 To .Positions.Count - 1
lstAxisSlicer.AddItem "Position" & lngAxesSlicerCounter
Next
End With