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