' объявите эти переменные в шапке любого модуля - старые const нужно заремить
public log as String, pass as string
'создайте функцию и засуньте в макрос autoexec - если нужно определять эти данные вначале.
Public function MakeConst()
dim prov
prov=dlookup("[field1]","tblName","[id]=1") ' field1 - поле в котором записаны значения, tblName - наименование таблицы, id=1 - ключ к этим данным 
log=nz(prov,vbnullstring)
prov=dlookup("[field1]","tblName","[id]=2")
pass=nz(prov,vbnullstring)
end function

Public function log () as string
dim prov
prov=dlookup("[field1]","tblName","[id]=1") 
log=nz(prov,vbnullstring)
end function
Public function pass() as string
dim prov
prov=dlookup("[field1]","tblName","[id]=2")
pass=nz(prov,vbnullstring)
end function

Dim tbl As HTMLTable, row As HTMLTableRow, HTML As HTMLDocument,  oIE As WebBrowser
' где то выше браузер загрузил страницу
' ...
  Set HTML = oIE.Document
 set tbl=html.getElementsByClassName("tableborder")
Set row = tbl.rows(1)
Debug.Print row.cells.Item(0).innerText