Urgente

Tengo un problema con un programa, que quiero que estando solo en un ordenador se pueda ejecutar desde cualquier ordenador por la red.no se como hay que poner la ruta(supongo que sera eso)mando una parte del código donde esta la ruta aver si alguien me dice como es.
Private Sub Form_Load()
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset
con.ConnectionString = "driver=microsoft access driver (*.mdb);dbq=\\89.3.1.173 DEPARTAMENTAL/TABLAS/DEPARTAMENTAL_ACERIA.mdb"
Dim sql As String
sql = "select lugar from codlugar"
con.Open
rst.Open sql, con
If rst.EOF Then
MsgBox "LA TABLA ESTA VACIA"
Exit Sub
End If
Do While Not rst.EOF
Combo1.AddItem rst(0)
rst.MoveNext
Loop
Set rst = Nothing
sql = "select descripcion from descparadasafino"
Set rst = con.Execute(sql)
If rst.EOF Then
MsgBox "LA TABLA ESTA VACIA"
Exit Sub
End If