Usa un file udl, in cui inserisci la stringa di connessione e poi la connessione la dichiari così

codice:
Dim Connessione As New OleDb.OleDbConnection("File Name=C:\sql.udl;")
Ti faccio un esempio della sintassi del file di testo:

[oledb]
; Everything after this line is an OLE DB initstring
Provider=SQLOLEDB.1;Password=xxx;Persist Security Info=True;User ID=xxxx;Initial Catalog=xxxx;Data Source=xxxxx