在VBA中串連SQL SERVER資料庫

Sub ConnDat()Sub ConnDat()
\'
\' ConnDat Macro
\' ShaoSiMin 記錄的宏 2002-8-25
\'
Dim conn As Connection
Dim rs As Recordset

\'串連 SQL SERVER 資料庫
Set conn = New Connection
conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=SHAO4;User ID=sa;Password=12345;DataBase=DF"

\'開啟表
Set rs = New Recordset
rs.Open "員工", conn, adOpenForwardOnly, adLockReadOnly

\'關閉表和資料庫
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

End Sub