'variabili:
 Public RcodUtente As Integer
    Public TipoUtente As String
    Public AvviaArticoli As Boolean
    Public AvviaAnagrafiche As Boolean

    Public Sub Inserisci()

        strsql = "INSERT INTO SicurezzaRighe (AvviaArticoli,AvviaAnagrafiche,RcodUtente,TipoUtente ) values (@AvviaArticoli,@AvviaAnagrafiche,@RcodUtente,@TipoUtente)"
        Dim cmd As New OleDbCommand(strsql, myconn)
        With cmd
            .Parameters.Add("@RcodUtente", OleDbType.Integer).Value = RcodUtente
            .Parameters.Add("@TipoUtente", OleDbType.VarChar).Value = TipoUtente
            .Parameters.Add("@AvviaArticoli", OleDbType.Boolean).Value = AvviaArticoli
            .Parameters.Add("@AvviaAnagrafiche", OleDbType.Boolean).Value = AvviaAnagrafiche

            .ExecuteNonQuery()
        End With
        cmd = Nothing

    End Sub