Hola,
Si quieres leerlo desde un archivo de texto, necesitas declarar un
StreamReader.
Puedes crear una funcion llamada CrearConexion
Ejemplo:
Esta funcion devuelve una conexion con lo que lea de tu archivo .txt
necesitas las siguientes espacios de nombre:
Imports System.Data
Imports System.Data.Oledb
Imports System.IO
' ***
Public Function CrearConexion() as oledbConnection
Dim sr as new streamreader("Archivo.txt")
Dim cadCon as String = sr.Read()
sr.Close()
Dim accessCon as new oledbConnection(cadCon)
return accessCon
End Function
PD: No lo probe porque en esta compu no tengo Visual Basic, lo saque de mis vagos recuerdos.

espero que te sirva

y disculpa los errores de dedo si hay.