VB6とSQL SERVER 2005のADO接続方法

質問

VB6とSQL SERVER 2005（Developer Edition）のADO接続方法がわかりません。

今までSQLSERVER2000で開発していたのですが、DBをSQLSERVER2005に
変更したところ接続できませんでした。

以下はSQLSERVER2000時のソースなのですが、
2005の場合ConnectionStringはどうやればいいのでしょうか？
---------------------------------------
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Set rs = New ADODB.Recordset
Set cn = New ADODB.Connection

cn.ConnectionString = "Provider=SQLOLEDB.1;" & _
"User ID=" & strUsr & ";" & _
"Data Source=" & strSvr & ";" & _
"Password=" & strPass

cn.CursorLocation = adUseClient
cn.Open
---------------------------------------
初歩的な質問で申し訳ありませんがどなたかお助けください。

回答No.1

Masa2072 · ベストアンサー

私自身はOLEDB接続を使用していないので以下のようにしています。

Dim Cn As New ADODB.Connection
Cn.ConnectionString = "Driver=SQL Server;Server=ServerName;" & _
　　　　　　　　　　　"UID=UserID;PWD=Password;"
Cn.Open

提示されたソースでおかしいと思う部分では
Set Cn = New ADODB.Connection
がないのですがこの辺は質問時の記述ミスでしょうか？

お礼

お騒がせしました。無事接続できました。
原因はsqlserverへ「localhost」で接続していたせいでした。
2005はSQLサーバー名が「localhost」で接続できないのですかね^^;

ともかく、ありがとうございました。