no, ahime anche li nada risposta! ho dovuto tentare fin a quando non ho trovato la soluzione ai miei problemi! cmq il problema ora è al chiusura del recordset e della connessione che non fa!

ecco il codice se ti interessa:

Public cn As ADODB.Connection ' DICHIARO L'OGGETTO CONNECTION
Public rs As ADODB.Recordset ' DICHIARO L'OGGETTO RECORDSET
Private db_path As String
Private connString As String
Private domandaDB As String
Public Sub apriConnessione()
db_path = App.Path & "\Template.mdb"
connString = "PROVIDER=MSDataShape; Data Provider=Microsoft.Jet.oledb.4.0; Data Source=" & db_path
Set cn = New ADODB.Connection
cn.ConnectionString = connString
cn.Open
MsgBox "connessione aperta"
End Sub
Public Sub eseguiQuery(ByVal queryToDb As String)
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = cn
.LockType = 1
.Source = queryToDb
.Open
End With
End Sub
Public Property Let valQuery(ByVal queryDB As String)
domandaDB = queryDB
End Property
Public Sub getDati(ByVal queryDB As String)
apriConnessione
eseguiQuery (queryDB)
sendDati
End Sub
Public Function sendDati() As ADODB.Recordset
Dim dbContr As clsDbController
Set dbContr = New clsDbController
dbContr.reciveResultsQuery = rs
Set dbContr = Nothing
End Function
Public Sub chiudiConnessione()
rs.Close
cn.Close
MsgBox "connessione chiusa"
End Sub

ps: ma perchè non funziona lo scroll del mouse nel codice di vb??