C'e' poco da fare esempi ... devi usare una semplice variabile stringa in cui inserire il percorso e il nome del file mdb, cosi' come fai per la stringa di connessione ...

codice:
Dim StringaConn As string
Dim dbPath As String
Nella variabile dbPath, con un apposito form, fai inserire dall'utente il percorso (usando un controllo CommonDialog ... o qualcosa di simile ...) e poi la utilizzi nella StringaConn

codice:
StringaConn = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data_
Source=" & dbPath