我现在在做个网页批量登录的工具，
其他部分都差不多做好了，就差从数据库读取数据的部分了


代码如下:

dim strcode = web1.document.body.innertext

if instr(strcode,"注销") <> 0 then
    Delay 10
    web1.navigate("这里是退出网址")
else
    web1.navigate("登录网址的前一部分" & "&username=" & user【这里的USER我需要读取数据库的USER列的值】 & "&password=" & pass【这里的USER我需要读取数据库的PASS列的值】)
end if



上面是网页加载完的判断，在USER和PASS变量里赋数据库USER列和PASS列的值

而且是登录完成一个后，再赋下一个用户的值

还有连接数据库的代码要怎么写？，我看资料一直没看懂，ADO方法的。

最好有注释。。。