tipo non corrispondente
Dim db As Database
Dim rcsparametri As Recordset
Dim vettoreparametri(21) As Integer, y As Integer
'calcolo percorso dell'mde
Dim dbs As Database
Dim j As Integer
Set dbs = CurrentDb
path = dbs.Name
j = Len(path)
Do While (Mid(path, j, 1) <> "\")
j = j - 1
Loop
percorso = Mid(path, 1, j - 1)
dbs.Close
'calcolo percorso dell'mde
'carico i parametri
Set db = CurrentDb
Set rcsparametri = db.OpenRecordset("Select settaggi.* from settaggi")
