没装ACCES读取MDB文件信息

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