用data控件连接SQL数据库出错！解决方案

用data控件连接SQL数据库出错！~
Data1.DatabaseName   =   " "
Data1.Connect   =   "ODBC;DRIVER={SQL       Server};Server=localhost;uid=sa;pwd=;database=原始记录 "
Data1.Refresh
运行时一直出现这个错误
实时错误‘3151’：
ODBC---连接到‘{SQL   Server}localhost’失败
请问这是怎么回事呢？？？请大家帮忙解决下。谢谢了

[解决办法]
引用ADO

dim conn as new adodb.connection
with conn
If .State = adStateOpen Then .Close
.ConnectionString = "driver=SQL Server;server=SQL所在计算机名或IP地址;uid=sa;pwd=;database=数据库名 "
.CommandTimeout = 0
.Open
end with