Msg Box выводит только 1 запись из запроса, как отобразить все? - VBA

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

Здравствуйте! Снова обращаюсь за помощью. Появилась такая проблема: в MsgBox написала нужный текст, поле из запроса вставила (данные из которого нужно отразить в этом сообщении), но в окне показывает только 1 запись из трех. Как сделать так, чтобы вывести все три записи по столбцу запроса в MsgBox?

Решение задачи: «Msg Box выводит только 1 запись из запроса, как отобразить все?»

textual
                            Листинг программы 
                        

                            Dim rs As Object
Set rs = CreateObject("Adodb.recordset")
rs.Open "Select * From Данные", CurrentProject.Connection, 3, 3
MsgBox rs.getstring
Set rs = Nothing
                        