conexion remota con access

[mamogo]

Hola socios,
como va todo.
Un colega mio tiene un servidor en su empresa y tiene una db en access.desde su casa se conecta remotamente por VPN (red) y cuando abre la db le tarda mucho en ejecutar algo. Me ha preguntado si puedo hacerle un programilla para ver algunos datos y modificarlos sin que tarde mucho. Yo lo Hago en local
Así

Function comparadatos() '----ANTERIORES
iguales = 0
Set basedatos = OpenDatabase("C:\super-10\super.mdb")


Set DATOS = basedatos.OpenRecordset("SELECT * FROM super ORDER BY fecha asc ")

DATOS.MoveFirst

Do While Not DATOS.EOF
DATOS.MoveNext
If DATOS.EOF = False Then
fecha = DATOS!fecha
anterior(1) = DATOS!n1
anterior(2) = DATOS!n2
anterior(3) = DATOS!n3
anterior(4) = DATOS!n4
anterior(5) = DATOS!n5
anterior(6) = DATOS!n6
anterior(7) = DATOS!n7
anterior(8) = DATOS!n8
anterior(9) = DATOS!n9
anterior(10) = DATOS!n10
anterior(11) = DATOS!n11
anterior(12) = DATOS!n12
anterior(13) = DATOS!n13
anterior(14) = DATOS!n14
anterior(15) = DATOS!n15
anterior(16) = DATOS!n16
anterior(17) = DATOS!n17
anterior(18) = DATOS!n18
anterior(19) = DATOS!n19
anterior(20) = DATOS!n20

esta es mi ruta Set basedatos = OpenDatabase("C:\super-10\super.mdb")
pero mi pregunta es, como lo hago para conectarme con la del servidor?