ник: kot_k_k
тупо и в лоб - создаем таблу с полями Дата;Код;Валюта;Номинал;Полное_название;Курс
у тебя есть Me!lstRate.RowSource = strS - на конкретную дату
робымо цикл с 01.06.2011 по 30.06.2011
дополнить твой код следующим
' Me!lstRate.RowSource = strS - не нужно в цикле
u = Split(strS, ";")
For i = 6 To UBound(u) Step 6
dbs.Execute ("insert into таблица1 (Дата,Код,Валюта,Номинал,Полное_название,Курс) values ('" & u(i) & "','" & _
u(i + 1) & "','" & u(i + 2) & "','" & u(i + 3) & "','" & u(i + 4) & "'," & Val(u(i + 5)) & ")")
Next
и так 30 раз - получаем карасивую таблу и в ней делаем шо хотим 
посмотри аттач