ACCESS数据库的连接与取值

【求助】ACCESS数据库的连接与取值
我现在在做个网页批量登录的工具，
其他部分都差不多做好了，就差从数据库读取数据的部分了


代码如下:

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方法的。

最好有注释。。。

[解决办法]

VB code

'CS结构的话参考如下：dim conn as new adodb.connectionwith conn    If .State = adStateOpen Then .Close    .ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\test.mdb;Mode=ReadWrite;Persist Security Info=False"    .Openend with