Visual Basic para Aplicaciones - El path al servidor

Hola, mi nombre es gaston y paso a decir mi duda.
Hice un programa en Visual Basic y Access monousuario y ahora me lo pidieron que lo haga multiusuario, o sea, que en cada pc se pueda ejecutar el programa y dar de alta, modificar, consultar y eliminar en la base de datos(access) que se encuentra en el servidor.
Que codigo debo usar para hacerlo multiusuario y queria saber como hago para poner en el programa la ruta a la base que se encuentra en el servidor, o sea, el Path.

Gracias por su ayuda, saludos cordiales, gaston.

Private Sub Form_Load()
Set BDradios = New ADODB.Connection
BDradios.Provider = "Microsoft.jet.oledb.4.0"
'BDradios.Open "c:\compartida\RADIOS2004.mdb"
'CrystalReport1.DataFiles(0) = "c:\compartida\RADIOS2004.mdb"
BDradios.Open "\\c4-tabasco\CST\RADIOS2004.mdb"
CrystalReport1.DataFiles(0) = "\\c4-tabasco\CST\RADIOS2004.mdb"
Set TBAutomoviles = New ADODB.Recordset
TBAutomoviles.ActiveConnection = BDradios
TBAutomoviles.CursorType = adOpenStatic
TBAutomoviles.LockType = adLockBatchOptimistic
TBAutomoviles.Open ("Automoviles")
Set TBCorporacion = New ADODB.Recordset
TBCorporacion.ActiveConnection = BDradios
TBCorporacion.CursorType = adOpenStatic
TBCorporacion.LockType = adLockBatchOptimistic
TBCorporacion.Open ("Corporacion")

Set TBUsuario = New ADODB.Recordset
TBUsuario.ActiveConnection = BDradios
TBUsuario.CursorType = adOpenStatic
TBUsuario.LockType = adLockBatchOptimistic
TBUsuario.Open ("Usuario")
Set TBModelo = New ADODB.Recordset
TBModelo.ActiveConnection = BDradios
TBModelo.CursorType = adOpenStatic
TBModelo.LockType = adLockBatchOptimistic
TBModelo.Open ("Modelo")
Set TBTipo = New ADODB.Recordset
TBTipo.ActiveConnection = BDradios
TBTipo.CursorType = adOpenStatic
TBTipo.LockType = adLockBatchOptimistic
TBTipo.Open ("Tipo")
Set TBRadio = New ADODB.Recordset
TBRadio.ActiveConnection = BDradios
TBRadio.CursorType = adOpenStatic
TBRadio.LockType = adLockBatchOptimistic
TBRadio.Open ("Radio")
Set TBCargador = New ADODB.Recordset
TBCargador.ActiveConnection = BDradios
TBCargador.CursorType = adOpenStatic
TBCargador.LockType = adLockBatchOptimistic
TBCargador.Open ("Cargadores")
Set TBRFSI = New ADODB.Recordset
TBRFSI.ActiveConnection = BDradios
TBRFSI.CursorType = adOpenStatic
TBRFSI.LockType = adLockBatchOptimistic
TBRFSI.Open ("RFSI")
Set TBAsignacion = New ADODB.Recordset
TBAsignacion.ActiveConnection = BDradios
TBAsignacion.CursorType = adOpenStatic
TBAsignacion.LockType = adLockBatchOptimistic
TBAsignacion.Open ("Asignacion")
Set TBGCB = New ADODB.Recordset
TBGCB.ActiveConnection = BDradios
TBGCB.CursorType = adOpenStatic
TBGCB.LockType = adLockBatchOptimistic
TBGCB.Open ("GCB")
Text1.Text = Usuario_Text
Text2.Text = Contraseña_Text
Command1_Click
End Sub