访问SQL数据库时出错？

Question

实时错误 '-2147467259 (80004005)':
用户'sa'登陆失败。原因：未与信任SQL Server连接相关联。
这个是什么原因啊，sql企业管理器可以操作啊，可是我下面这个到最后那行就报告上面的错误
Dim objCon As Connection, strCn As String
Set objCon = New Connection strCn = "Provider=SQLOLEDB.1;User Id=sa;Data Source=(local)"
objCon.ConnectionString = strCn
objCon.Open
是不是SQL哪里设置错误了，怎么弄阿

Answer 1

Set objCon = New Connection strCn = "Provider=SQLOLEDB.1;User Id=sa;Data Source=(local)"
没见过连等的
只好学习

Answer 2

Set objCon.open "Provider=SQLOLEDB.1;User Id=sa;Database=northwind;server=(local)"

Answer 3

ConnectString = "driver={SQL Server};uid=" & 用户名& ";pwd=" & 密码& ";database=" & 数据库名& ";server=" & 服务器名或IP地址 & ""