[ملهمـ]

كود :

Imports System.Data.SqlClient
Imports System.IO

   Public SqlConn As New SqlClient.SqlConnection
 

   Public Sub OpenConnect()
       If SqlConn.State = 1 Then SqlConn.Close()
       Try
                      SqlConn = New SqlConnection(File.ReadAllText("D:\Connection\Connection.txt"))
           SqlConn.Open()
       Catch ex As Exception
           MsgBox(ex.Message)
           SqlConn.Close()
       End Try
   End Sub

في مسار ملف ( التكست ) يتم وضع نص الاتصال وهو كالتالي 

كود :

Data Source=ٍServer;Initial Catalog=DATA_Base;Integrated Security=True

بالتوفيق