Public Sub ApriConnessione(strQuery As String)
gStrConnessione = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database.mdb;Mode=ReadWrite;Persist Security Info=False"
gAdoConnessione.CursorLocation = adUseClient
If gAdoConnessione.State <> adStateOpen Then
gAdoConnessione.Open gStrConnessione
End If
With recDati
.CursorLocation = adUseClient
.Open strQuery, gAdoConnessione, adOpenDynamic, adLockOptimistic
.ActiveConnection = Nothing
End With
End Sub