encontre este codigo por la web... a ver si te ayuda...
Código vb:
Ver originalPrivate Sub Conectar_Basedatos()
Dim sUbicacion As String
' para conexion en red
' sUbicacion = "\\Maq-01\documentos c\prueba\mydata.mdb"
With nc
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source").Value = sUbicacion
.Properties("Persist Security Info").Value = False
.Open
End With
Exit Sub
Set nc = Nothing
End
End Sub