客户端ActiveX中访问服务器SQL数据库问题！急死我啦！

Question

我的代码是这样的：
Dim conn, rs
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Provider = "SQLOLEDB.1"
conn.ConnectionString = "Database=数据库名;Server=服务器IP地址;User ID=sa;PWD="
...运行时，提示错误：
错误内容为：运行时错误 '-2147467259 (80004005)';
[Microsoft][OLDBC SQL Driver][Shared Memory]SQL Server 不存在或访问被拒绝请大家帮忙看一看，问题出在哪里，我都急死啦！！！谢谢！

Answer 1

用ADODC控件连数据库,看能否连上