Kod:
Set conn = CreateObject("ADODB.Connection")
conn.CommandTimeout = 90
conn.Provider = "SQLOLEDB"
conn.Properties("Data Source").Value = "" 'server
conn.Properties("Initial Catalog").Value = "" 'db Name
conn.Properties("User ID").Value = "" 'userName
conn.Properties("PassworD").Value = "" 'password
conn.Open
bu yöntemi deneyebilirsin.
Ayrıca database üzerinde yaptığın yetkilendirme ayarlarını da kontrol etmelisin.