Visual Basic - S.O.S ..!!!

Tengo que realizar una conexion con una tabla de access en la ejecucion de mi proyecto de Visual, estoy utilizando un objeto ado, necesito escribir la conexion y no hacerlo mediante el asistente, ya que datasource va a ser una variable que cambia segun un listado , si tienen informacion de como escribir la conexion y que se pueda conectar en tiempo de ejecucion por favor enviarla

http://www.able-consulting.com

Primero en el Menú Proyecto -> Referencias tenés que cargar la librería "Microsoft Activex DataObjects 2.x Library

Dim cnn As New ADODB.Connection
Dim StrSelect As String

StrSelect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
'Ahora pongo el Data Source, que en mi caso es DistrOrg.mdb dentro
'del path "Bases"
StrSelect = StrSelect & App.Path & "\Bases\" & "DistrOrg.mdb"
StrSelect = StrSelect & ";Mode=Read;Persist Security Info=False"
'Cargo el ConectionString
cnn.ConnectionString = StrSelect
'Abro la Base de datos
cnn.Open