Public Sub EseguiComandoConParametri(ByVal Param1 As String, ByVal Param2 As Integer, ByVal cs As String)

        ' utilizzo using per gestire automaticamente la dispose della connessione (pulizia memoria)
        Using objConn As New OleDbConnection(cs)

            ' apro la connessione
            objConn.Open()

            ' ricavo il comando dalla connessione
            Using objCmd As OleDbCommand = objConn.CreateCommand()

                ' imposto il comando con il placeholder ? per i params
                objCmd.CommandType = CommandType.Text
                objCmd.CommandText = "UPDATE TuaTabella SET Campo = ? WHERE Chiave = ?"

                ' aggiungo i params alla collezione
                objCmd.Parameters.Add("p1", OleDbType.VarChar, 10).Value = Param1
                objCmd.Parameters.Add("p2", OleDbType.Integer).Value = Param2

                ' eseguo senza tornare resultset
                Try
                    objCmd.ExecuteNonQuery()
                Catch ex As Exception
                    Throw
                End Try

            End Using

            ' chiudo la connessione
            objConn.Close()

        End Using

    End Sub