Visual Basic - Ayuda con conexion en red

Hola amigos de la web
Yo aprendi a programar en Visual 4.0 y siempre abri asi las bases de datos y para un solo equipo, ahora quiero hacer el programa para que funcione en red pero no se si estas instrucciones cambian mucho
y quiero migrar el programa de visual 4.0 al 6.0
Set dbnombre = Workspaces(0).OpenDatabase("c:\facturacion\sisfac.Mdb")
Set dbtabla1 = dbnombre.OpenRecordset("PRODUCTOS")
dbtabla1.Index = "PRIMARYKEY"
dbtabla1.Seek "=", CODPRO
If dbtabla1.NoMatch Then
MsgBox "Código no exise en el maestro", 64, "Atención"
CODPRO.SetFocus
Else
glosa = dbtabla1("nompro")
precio = dbtabla1("preven")
End If
dbtabla1.Close
CANTIDAD.SetFocus
Si alguien puede enviarme algún código para conectarme a la base de datos ya sea para consultas o para modificaciones de los registros se lo agradecería mucho
Saludos desde Chile

La carpeta del servidor donde se encuentra la base debe estar compartida

Set dbnombre = Workspaces(0).OpenDatabase("\\servidor\c\facturacion\sisfac.Mdb")

o si una estaciòn toma como una unidad compartida el servidor, ej con la letra h
Set dbnombre = Workspaces(0).OpenDatabase("h:\facturacion\sisfac.Mdb")