ADO连接SQL Server数据库问题

Question

初学VB，这几天试着用ADO连接SQL Server数据库，但一直没有成功，请各位前辈不惜笔墨，指教一二。我先说明一下我的操作步骤：
    启动VB6，新建一个工程文件，在工程--引用中选定Microsoft Activex Data Objects 2.5 Library，单击确定，在表单中加入以下代码：Dim WithEvents AdoDatabase As ADODB.Connection
Dim AdoTable As New ADODB.RecordsetPrivate Sub Form_Load()
  Dim scnn As String
  Set AdoDatabase = New ADODB.Connection
  scnn = "Provider=SQLOLEDB;Data Source=SQL Server服务器的IP;DATABASE=数据库名;UID=sa;pwd=密码"
  AdoDatabase.Open scnn
End Sub但运行时出现“实时错误的……”的提示信息，请问以上问题出在哪啊？

Answer 1

Dim WithEvents AdoDatabase As ADODB.Connection
Dim AdoTable As New ADODB.RecordsetPrivate Sub Form_Load()
  Dim scnn As String
  Set AdoDatabase = New ADODB.Connection
  scnn = "Provider=SQLOLEDB;Data Source=SQL Server服务器的IP;DATABASE=数据库名;UID=sa;pwd=密码"
  AdoDatabase.Open scnn
End Sub连接错误：
正确应为：AdoDatabase.ConnectionString="Provider=sqloledb.1;data source=ServerName;database=databaseName;user id=sa;pwd=password"
AdoDatabase.Open

Answer 2

scnn = "Provider=SQLOLEDB;Data Source=SQL Server服务器的IP;DATABASE=数据库名;UID=sa;pwd=密码"你不会没有改上面的"服务器IP","数据库名".....要是这样我无语了....