没装ACCES读取MDB文件信息

'没装ACCES读取MDB文件信息,使用vbs连接数据库并读取相关字段
'前提条件是你得知道数据库里相关表及字段的名称

dbpath = "database.mdb"
connstr = "provider=microsoft.jet.oledb.4.0;data source=" & dbpath
Set conn = CreateObject("adodb.connection")
conn.Open connstr
Set rs = CreateObject("adodb.recordset")
sql = "select * from Users "
rs.Open sql, conn, 1, 1
Do While Not rs.EOF
    MsgBox("用户名：" & rs("username") & "密码：" & rs("password"))
    rs.movenext
Loop