Нашел функцию

Function GetHTTPResult(sURL As String) As String
    Dim XMLHTTP As Variant, sResult As String

    Set XMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    XMLHTTP.Open "GET", sURL, False
    XMLHTTP.Send
    Debug.Print "Status: " & XMLHTTP.Status & " - " & XMLHTTP.StatusText
    sResult = XMLHTTP.ResponseText
    Debug.Print "Length of response: " & Len(sResult)
    Set XMLHTTP = Nothing
    GetHTTPResult = sResult
End Function

которая возвращает текст в виде (разделители ; )

126;adm;XC3S2000;adp201p4_v10_s2000_admfotr2g;2.0;ADP201P4;1.5;;
126;adm;XC3S2000;adp201p4_v10_s2000_admfotr2g;2.0;;;ADMFOTR2G;1.0
126;adm;XC3S2000;adp201p4_v10_s2000_admfotr2g;2.0;;;ADMFOTR2G;1.1
129;adm;XC3S2000;adp201p4_v10_s2000_admqm9857;1.0;ADP201P4;1.0;;
129;adm;XC3S2000;adp201p4_v10_s2000_admqm9857;1.0;ADP201P4;1.1;;

как бы его загнать в таблицу. новую или предварительно созданную?

http://www.sql.ru/forum/1131853/zakachat-v-bazu