Simple HTTP AUTH

I am need to build a bot that can logon to a simple HTTP AUTH page and extract the html from that page to process in MS-ACCESS. We currently use: Public Sub HTTPBot() ? ? ? Dim objXMLHTTP, xml ? ? ? Dim strHTML As String ? ? ? Set db = CurrentDb() ? ? ? Set rs = [login to view URL]("tblURL", dbOpenTable) ? ? ? Set xml = CreateObject("[login to view URL]") ? ? ? On Error GoTo ErrHandler ? ? ? ? ? ? Do While Not [login to view URL] ? ? ? ? ? id = rs("id") ? ? ? ? ? strurl = rs("URL") ? ? ? ? ? strHTML = "" ? ? ? ? ? [login to view URL] "GET", strurl, False ? ? ? ? ? [login to view URL] ? ? ? ? ? strHTML = [login to view URL] to get the HTML, now we need to do the same thing, but access a HTTP AUTH page at the same time. Thanks James