conectar BD Access en red

[-rommel_]

encontre este codigo por la web... a ver si te ayuda...

Código vb:

Private 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