Скрипт получение данных из другой таблицы - VB

Формулировка задачи:

Добрый день! Vbs незнаю вообще, но обстоятельство принуждает писать скрипт vbs.
Нужно написать скрипт при нажатие кнопки показывала данные из другой таблицы.
на данный момент вот, что получилась

Dim rstA, sSql, iID, sCategoryAct,sCategorProduct,sProduct, sMessage,iSales
sSql="SELECT *FROM tblActions" 
OpenRecordset rstA, sSql, iID,sCategory, sCategorProduct,sProduct,iSales
Do Until rstA.EOF 
iID = rstA("ID").Value 
sCategoryAct=rstA("CategoryAct").Value
sCategorProduct=rstA("CategorProduct").Value
iSales=rstA("Sales").Value
MsgBox "Акции" & vbCrLf & vbCrLf & iID & vbTab &  sCategoryAct   & vbTab & iSales & vbTab &  sCategorProduct
rstA.MoveNext 
Loop 
CloseRecordset rstA, sSql, iID,sCategoryAct,sCategorProduct,sProduct,iSales

результат получаю MSbox столько сколько в таблице. А как сделать, чтобы получить экран один раз с перечисленными данными.

Решение задачи: «Скрипт получение данных из другой таблицы»

textual
                            Листинг программы 
                        
                            s = s & vbCrLf & iID & vbTab & sCategoryAct & vbTab & iSales & vbTab & sCategorProduct & vbTab & iQuantity