' 改行を含めることも可能 Dim oradb As String = $" User Id={oraUser}; Password={oraPwd}; Data Source=(DESCRIPTION= (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP) (HOST = {oraHost}) (PORT = 1521) ) ) (CONNECT_DATA = (SERVICE_NAME = {oraService}) ) );" TextBox1.Text = oradb