VB選單：工程->引用 裡面找 Microsoft ActiveX Data Object 2.8 Library,並勾選上

Dim cn As New ADODB.Connection"宣告一個連線物件

Dim rst As New ADODB.Recordset"宣告一個記錄集物件

Dim SqlStr As String"宣告一個字串變數

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"

"上面是連線到資料庫

SqlStr = "Select * From 使用者表"

rst.CursorLocation = adUseClient"設定遊標位置

rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText "開啟記錄集

rst.Fields("使用者名稱稱").Value = Text1.Text"修改記錄集中第一條記錄"使用者名稱稱"欄位的數值

rst.Fields("使用者口令").Value = Text2.Text"修改記錄集中第一條記錄"使用者口令"欄位的數值

rst.UpdateBatch "提交，就是寫到硬碟的資料庫檔案

rst.Close "關閉記錄集

Set rst = Nothing "釋放

cn.Close "關閉連線

Set cn = Nothing "釋放