Dim conn_sql As System.Data.SqlClient.SqlConnection
Dim builder_sql As New System.Data.SqlClient.SqlConnectionStringBuilder

'--------------------------------------------------
'SQL Server 接続文字列
'--------------------------------------------------
'アイテムで設定
builder_sql("Password") = "password"
builder_sql("User") = "username"
builder_sql("Server") = "servername"
builder_sql("Initial Catalog") = "hogehoge"

''プロパティで設定
'builder_sql.Password = "password"
'builder_sql.UserID = "username"
'builder_sql.DataSource = "servername"
'builder_sql.InitialCatalog = "hogehoge"

Try
    conn_sql = New System.Data.SqlClient.SqlConnection(builder_sql.ConnectionString)
    conn_sql.Open()
Catch ex As Exception
    MessageBox.Show(ex.Message + builder_sql.ConnectionString)
End Try
   .
   .
   .