Здравствуйте!

У меня есть приложение на VBA (Аксесс 2007).
Стоит задача - по нажатию кнопки подгружать в нужные поля кор.счет и наименование банка имея только БИК.
Сейчас я импортирую таблицу БИКов себе в приложение вручную и обновляю раз в полгода.
Выглядит это так:

Private Sub Заполнить_по_БИК_Click()

On Error Resume Next

Dim Ks, Bank, Bik

Bik = Me![БИК].Value
Ks = Me![КС].Value

If IsNull(Bik) Then
        MsgBox ("Введите БИК!")
        Exit Sub
Else
        Bik = Me![БИК].Value
        Ks = DLookup("CorrAcc", "tblBIC", "BIC='" & Me![БИК] & "'")
        Bank = DLookup("Bank", "tblBIC", "BIC='" & Me![БИК] & "'")
End If

If IsNull(Ks) And IsNull(Bank) Then MsgBox ("В базе БИКов такого банка нет. Последнее обновление базы 30.07.2014 г.")
Me![КС].Value = Ks
Me![БИК].Value = Bik
Me![Банк].Value = Bank

End Sub

Но хочется по-взрослому: чтоб все всегда было актуально само.
Вот на http://www.bik-info.ru/base.html нашел такое:

автор
API: получение информации по одному БИК номеру Для получения информации в формате JSON: http://www.bik-info.ru/api.html?type=json&bik=НОМЕР_БИК (Кодировка UTF-8) В формате XML: http://www.bik-info.ru/api.html?type=xml&bik=НОМЕР_БИК (Кодировка Windows-1251)

Что из этого и куда я должен вставить чтобы получить результат?
Или хотя бы где прочитать?

Заранее спасибо!

http://www.sql.ru/forum/1162770/podgruzit-dannye-o-banke-po-bik