'數據連接
Dim ddns As String
Dim databaseline As String
Dim cN As New ADODB.Connection
cN.CommandTimeout = 0
cN.Provider = "SQLOLEDB"
cN.Properties("DATA SOURCE").Value = 'ddns'
cN.Properties("INITIAL CATALOG").Value = 'databaseline'
cN.Properties("INTEGRATED SECURITY").Value = "SSPI"
cN.Open
Dim FHQ As Recordset