※ 引述《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
: 謝~
以下是我常用寫法
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCn As String, strSQL As String
strCn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
" Data Source = " & 資料庫路徑檔名
cn.Open strCn
strSQL = " Select * from 一號資料表 " & _
" Where 欄位1 = TRUE " & _
"AND 欄位2 = '" & 變數 & "' "
rs.Open strSQL, cn, adOpenKeyset, adLockOptimistic
'↑自己查一下最後2個這邊要用什麼，不一樣有權限
'讀取資料
Do Until rs.EOF
欄位1的值 = rs("欄位1")
做完你跟欄位1的愛做的事
rs.MoveNext
Loop
'新增一筆資料
rs.AddNew
rs("欄位1") = 123
rs("欄位2") = 555
rs.Update
rs.Close' 別忘了關掉
cn.Close