En tiempo de diseño lo conectas de forma normal, pero en ejecucion puedes manipularlo de esta forma
'Puedes cambiar de Ruta la Base de Datos
Data1.DatabaseName = App.Path & "\BD del porton.mdb"
Data1.RecordSource = "T_Datos_Vehiculos" 'Cambiar de Tabla
Data1.Refresh