strInsert = "INSERT INTO R5EVENTS(EVT_DESC,EVT_DATE,EVT_STATUS,EVT_RSTATUS,EVT_OBJECT,EVT_SQLIDENTITY,EVT_TYPE,EVT_RTYPE,EVT_MRC,EVT_COSTCODE,EVT_PERSON,EVT_ENTEREDBY,EVT_UDFCHAR01,EVT_UDFCHAR02,LUOGO1,LUOGO2,LUOGO3,EVT_ORIGIN,EMAIL_RICHIEDENTE)" _
            & "VALUES('" & Me.txtDescrizione.Text & "',CDate(NOW()),'Q','Q',''," & dt.Rows(0)("MAXSQL") & ",'MAN','MAN','*','" & Me.lstCostcenter.SelectedValue & "','" & Me.txtResponsabile.Text & "','" & Me.txtReferente.Text & "','" & Me.txtTelReferente.Text & "','" & Me.txtPiano.Text & "','" & Me.lstSettore.SelectedItem.Text & "','" & Me.txtstanza.Text & "','" & Me.txtApparecchiatura.Text & "','" & Me.txtRichiedente.Text & "','" & Me.txtMailRichiedente.Text & "')"
            If Dm.nonQryExecute(strInsert) Then
Public Function nonQryExecute(ByVal strNonQry As String) As Boolean
        Dim bReturn As Boolean = False
        Me.readIniFile(Percorso)
        setConn(getDbName(), getDbPass(), getDbUser(), getServerName())
        Dim cmd As New OleDbCommand
        Try

            Conn.Open()
            cmd.Connection = Conn
            cmd.CommandType = CommandType.Text
            cmd.CommandText = strNonQry
            cmd.ExecuteNonQuery()
            bReturn = True
        Catch ex As Exception
            bReturn = False
        Finally
            Conn.Close()
        End Try
        Return bReturn
    End Function