這是用DAO 開啟access資料庫：

首先在 “工程－引用”選擇microsoft DAO 3.6 Object Library，將資料庫儲存在工程所儲存的資料夾內

然後程式碼如下：

dim db1 As Database

dim rs1 as recordset

Set db1 = OpenDatabase(App.Path & "\db1.mdb", False, False, ";Pwd=111")"假設資料庫名為db1.mdb，資料庫密碼為111。這樣db1就連線上資料庫db1.mdb了。下面程式碼繼續對資料庫操作

set rs1=db1.openrecordset("select * from 表1") "rs1 連線上表1

rs1.movefirst "移到表的第一條記錄

rs1.edit

rs1("姓名")="張三"

rs1.update "這樣就修改了第一條記錄的姓名欄位為“張三”