Sub 按鈕18_Click()

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 訂單編號, 客戶, 時間 from 客戶基本信息"

Set rs = New ADODB.Recordset

rs.Open sql, Cnn, adOpenKeyset, adLockOptimistic

For i = 1 To rs.RecordCount

? ? MsgBox rs.Fields(0).Value

? ? rs.MoveNext '這就是下一條

Next i

End Sub