Es muy simple, solo en la pantalla de "loguin" le agregas un campo del estilo:
Base de datos: (que sea una lista seleccionable)
Usuario
Clave.
Entonces, cuando el usuario por ejemplo seleccione Empresa1.MDB que cambie el path de conexion de tu BD a algo como esto:
sPathBase = App.Path & "\"& empresa1 & ".mdb"
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & sPathBase & ""
Si necesitas mas ayuda solo pega el grito
