>Hide=Adaさん

St = "Server=" & ServerName & ";"
St &= "integrated security=SSPI;"
St &= "initial catalog = " & DatabaseName

の組み合わせで自分の環境に合わせると、「SQL Server　への接続を開けませんでした(error:40)」というエラーが

Cn.open()

の所で発生しましたが、

St = "Data Source=user;Initial Catalog=データベースシステム;Integrated Security=True"

という表記に変えると正しい結果が返ってきましたが、最初に書いた三段のコードに変更したら良いのでしょうか？

以下、現状のコードです
※テストフォームを作って、フォーム上にはbtnが一つだけあります。

Private Sub btnGo_Click(sender As System.Object, e As System.EventArgs) Handles btnGo.Click
        Dim St As String
        Dim Cn As New System.Data.SqlClient.SqlConnection
        Dim SQL As System.Data.SqlClient.SqlCommand
        Dim ServerName As String = "Data Source=user;Initial Catalog=データベースシステム;Integrated Security=True"
        Dim DatabaseName As String = "ユーザー情報"

        St = "Data Source=user;Initial Catalog=データベースシステム;Integrated Security=True"

        Cn.ConnectionString = St

        SQL = Cn.CreateCommand

        SQL.CommandText = "SELECT ID FROM ユーザー情報 WHERE パスワード = 3"

        Cn.Open()

        MsgBox(SQL.ExecuteScalar)

        Cn.Close()
        SQL.Dispose()
        Cn.Dispose()

       End Sub