Condivisione db access in rete lan

[devil946]

Appena aperta la form eseguo questa sub
Private Sub ReBuildRS()
Dim Percorso As String
Dim dbs As DAO.Database


Percorso = CurrentDb.Name
Set dbs = OpenDatabase(Percorso, False)
If Not rsA Is Nothing Then rsA.Close: Set rsA = Nothing
Set rsA = dbs.OpenRecordset("SELECT * FROM T_Appuntamenti " & _
"WHERE FIX([DataAppuntamento]) Between " & _
Format(DATADA, "\#yyyy\-mm\-dd\#") & " AND " & Format(DATAAL, "\#yyyy\-mm\-dd\#"))

[devil946]

Però secondo me il problema sta in access e quindi potrebbe stare anche qui