在Sheet3代碼里面放入

Dim Cnn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim arr, brr

Sub Openfile()

'Set Cnn = CreateObject("ADODB.Connection")

stPath = ThisWorkbook.Path & Application.PathSeparator & "人力資源管理系統(tǒng).mdb"

Cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & stPath & ";Jet OLEDB:Database Password=" & "access"

? sql = "select 訂單編號, 客戶, 時(shí)間 from 客戶基本信息"

'Set rs = New ADODB.Recordset

rs.Open sql, Cnn, adOpenKeyset, adLockOptimistic

arr = rs

brr = rs

End Sub

Private Sub Worksheet_Activate()

Call Sheet3.Openfile

End Sub

Sub Thenext()

'

Range("g3") = rs.Fields(0).Value

[G4] = rs.Fields(1).Value

rs.MoveNext '這就是下一條

End Sub

Sub Theprevious()

Range("g3") = rs.Fields(0).Value

[G4] = rs.Fields(1).Value

rs.MovePrevious '這就是上一條

End Sub

在ThisWorkbook代碼里面放入

Private Sub Workbook_Open()

Call Sheet3.Openfile

End Sub

效果圖