[VBA ] VBA 連到ACCESS方法?

[kikkoko (海海人生)]

這應該是DAO連線方法，請問如何改寫成ADO方法

Sub ABC()
Dim DB As Database
Dim RES As Recordset
Dim S As String

Connect$ = "ODBC;DSN=msndb;UID=eefg;PWD=a000user;"

Set DB = OpenDatabase("", False, False, Connect$)

Sheets("Sheet1").Select

S = " SELECT DTN FROM INDICES "

Set RES = DB.OpenRecordset(S, dbOpenSnapshot, dbSQLPassThrough)

Range("B8").CopyFromRecordset RES

End Sub

謝~

--
t  a   ╭ ◢██◣═◢██◣◥███◣═███◢██◣═球˙來就打══╮t  a
h  n   ║ █◤  ◥  █◤  ◥  ████  █     █  █      ╴   ∕    ║h  n
e  s   ║ █        █          █▌   ◥██◣  ◢◤       ￣╱〉    ║e  s
   w   ˙─────────────────────── ☆            ║   w
   e   ║ ◥██◤  ◥██◤    █▌   ◥██◤███       ╱ ╰     ║   e
   r  3╰═══════════ ◤════════════ Copy CCF ╯--

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.132.215.118
※ 文章網址: http://www.ptt.cc/bbs/Visual_Basic/M.1405954394.A.749.html