'Connette al DB
            SQLite_Connect()
            'Invia il comando
            Dim cmd As New SQLiteCommand
            With cmd
                .CommandText = "DELETE FROM Clienti WHERE index='" + frmClienti.DataGridView1.CurrentRow.Cells(0).Value + "'"
                .CommandType = CommandType.Text
                .Connection = SQLconnect
            End With
            cmd.ExecuteNonQuery()
            'Disconnette dal DB
            SQLite_Disconnect()