è il recordset:


Set rs = New ADODB.Recordset
With rs
If .State = adStateOpen Then .Close
.CursorLocation = adUseClient
.Open App.Path & "\rs.db"
End With