怎么用VB6通过ADO连接SQL Server 2008_VB

如何用VB6通过ADO连接SQL Server 2008?
    如何用VB6通过ADO连接SQL Server 2008?
    我用的这个： "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=;Initial Catalog=CW_BASE;Data Source=" & SIP & ""
    可一直打开数据库的时候报错。

sql?server vb

------解决方案--------------------------------------------------------

Set cn = New ADODB.Connection
str="Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=databasename;Data Source=192.168.0.1"
cn.Open str
......
cn.close
set cn=nothing

------解决方案--------------------------------------------------------
with cn
    If .State = adStateOpen Then .Close
    .ConnectionString = "driver=SQL Server;server=" & sip _
                      & ";uid=sa;pwd=;database=CW_BASE"
    .CommandTimeout = 0
    .Open
end with
------解决方案--------------------------------------------------------

报什么错？SIP 是什么内容？库 CW_BASE 是否存在？

"Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=;Initial Catalog=CW_BASE;Data Source=" & SIP