投稿者 HiDE-Ada  (社会人) 投稿日時 2014/5/8 17:07:54
Dim ServerName As String = "Data Source=user;Initial Catalog=データベースシステム;Integrated Security=True"

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

変数ServerNameとStに同じ値を設定していることに気づいてますか?
Stの値で接続できるなら、このままでいいと思います。