ADO连接SQL Server数据库问题

[EastLin]

初学VB，这几天试着用ADO连接SQL Server数据库，但一直没有成功，请各位前辈不惜笔墨，指教一二。我先说明一下我的操作步骤：
启动VB6，新建一个工程文件，在工程--引用中选定Microsoft Activex Data Objects 2.5 Library，单击确定，在表单中加入以下代码：

Dim WithEvents AdoDatabase As ADODB.Connection
Dim AdoTable As New ADODB.Recordset

Private 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

但运行时出现“实时错误的……”的提示信息，请问以上问题出在哪啊？

[Feather2005]

Dim WithEvents AdoDatabase As ADODB.Connection
Dim AdoTable As New ADODB.Recordset

Private 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

[wumylove1234]

scnn = "Provider=SQLOLEDB;Data Source=SQL Server服务器的IP;DATABASE=数据库名;UID=sa;pwd=密码"

你不会没有改上面的"服务器IP","数据库名".....

要是这样我无语了....

[haipingma]

Provider=SQLOLEDB.1