'queste le dichiari globali

Dim cn As ADODB.Connection
Dim rstTemp As ADODB.Recordset


Private Sub AggiungiProdotto()

Dim strCnn As String
Set cn = New ADODB.Connection
Set rstTemp = New ADODB.Recordset


strCnn = "" _
& "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\...DB_REPORT1.mdb"
cn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strCnn & ";Jet OLEDBatabase Password=")
rstTemp.Open "select * FROM azioni where 1 = 2", cn, adOpenDynamic, adLockOptimistic, adCmdText
rstTemp.AddNew
rstTemp!CODICE = Trim(grdLista.TextMatrix(0, 0))
rstTemp!DESCRIZIONE = Trim(grdLista.TextMatrix(0, 1))
rstTemp!QUANTITA = Trim(grdLista.TextMatrix(0, 2))
rstTemp!CATEGORIA = Trim(grdLista.TextMatrix(0, 3))
rstTemp!PREZZO = Trim(grdLista.TextMatrix(0, 4))
rstTemp!IVA = Trim(grdLista.TextMatrix(0, 5))
rstTemp!Data = Trim(grdLista.TextMatrix(0, 6))
rstTemp!ORA = Trim(grdLista.TextMatrix(0, 7))
rstTemp!Operatore = Trim(grdLista.TextMatrix(0, 8))
rstTemp!DESCRIZIONE_REALE = Trim(grdLista.TextMatrix(0, 9))
rstTemp.Update
rstTemp.Close

End Sub