"首先，工具->引用->選中Microsoft ActiveX Data Objects

2.X

Library "必須選中，否則下面程式碼不會起作用！（以下連結資料庫之方式，不需要使用ADODB控制元件，僅需程式碼即可） Public Conn As New

ADODB.Connection

Public Rs As New

ADODB.Recordset

Public Cnt As Integer "這個Cnt是用來表示資料庫資料總量的，對連結過程無關 "連線資料庫的程式碼段

Conn.CursorLocation

= adUseClient "以Conn為連結名建立連結，這裡是設定資料遊標（客戶端資料遊標），即設定讀取資料庫資料之方式（一行一行地讀）

Conn.Open

"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" &

App.Path

& "\test.mdb" "自己改動一下上面的路徑和檔名即可，其他的程式碼你不理解照貼上無妨 If

Rs.State

<> adStateClosed Then

Rs.Close

Rs.Open

"SELECT 鋪名, 上月讀數, 本月讀數, 實用度數, 鋪位數, 首層面積, 非經營層面積, 欠費明細, 欠費金額 FROM data WHERE 首層面積 is not null and 非經營層面積 is not null;", Conn, adOpenKeyset, adLockPessimistic Cnt =

Rs.RecordCount

"關閉資料庫連結（一般放到子過程結束處，關閉資料庫連結）

Rs.Close

Conn.Close

後帶SQL語句來實現對資料庫的查詢操作） "

Conn.Execute

"update data set 上月讀數 = 本月讀數" ’

Rs.MoveNext

"資料遊標轉到資料庫下一行 "例項： For i = 1 To Cnt DoEvents

Conn.Execute

"insert into data (ID,鋪名,上月讀數,本月讀數,實用度數,鋪位數) values(" & Rs("ID") & ","" & Rs("鋪名") & ""," & Rs("上月讀數") & "," & Rs("本月讀數") & "," & Rs("實用度數") & "," & Rs("鋪位數") & ")"

Rs.MoveNext

Next