VBがSQL Serverに接続出来ません。
以前は、外部サーバーで、VBは正常に作動していました。
これまで使用していたサーバー用PCを新調し、Win 10を購入。
このなかにサーバーも入れました（今回のサーバーはlocal）。
この環境でVBが動きません。
何故でしょうか？
新規のＰＣ環境では、Windows 認証接続もSQL認証接続も、できています。
アクセス版のプログラムは、正常に動作します。
ＯＤＢＣデータソースも正常です。
以前の環境：Win７ Professional , SQL Sever 2000 R(2002 R ？)--名称忘れました、外部サーバーです。
.Net Framework V.4.7 Visual Basic 2010
今回の環境：Win 10 Enterprize , SQL Server 2008 R2(Local です、内部サーバー)
.Net Framework V.3.5 Visual Basic 2008
新規ＰＣで .Net Framework や Visual Basicのバージョンが古いのは、無料版だからかもしれません。
以前の環境では有料購入でした。
新ＰＣ（Windows 10）での設定：SQL クライアント設定で、
TCP/IP(ポート1433）、Named Pipes(sql\query) の順で有効。
共有メモリプロトコル有効にチェックを入れる。
TCP/IPは、IP4・IP6の有効を「はい」、他は「いいえ」を」指定。
VBでのSQL Server 接続コードを示します；SQL 認証接続使用
'SQL接続
Public Const GC_SVRName = "サーバー名" ---今回はLocalなので、"（local）", "127.0.0.1" も試行。
Public Const GC_UserID = "ユーザー名"
Public Const GC_Password = "パスワード"
Public Const GC_DatabaseName = "データベース名"
Dim St As String
Dim Con As New System.Data.SqlClient.SqlConnection
Dim SQL As System.Data.SqlClient.SqlCommand
Dim ServerName As String = GC_SVRName 'サーバー名(またはIPアドレス)
Dim UserID As String = GC_UserID 'ユーザーID
Dim Password As String = GC_Password 'パスワード
Dim DatabaseName As String = GC_DatabaseName
St = "Server=" & ServerName & ";"
St &= "User ID=" & UserID & ";"
St &= "Password=" & Password & ";"
St &= "Initial Catalog=" & DatabaseName
Con.ConnectionString = St
SQL = Con.CreateCommand
Con.Open()
なぜ、接続できないのでしょうか？
原因、対策のご教示をお願いします。
yksaila